Map: array of array of TMapElementEnum;


// 初期化
SetLength(Map, XBlock);
for i:=0 to Length(Map)-1 do
SetLength(Map[i], YBlock);
for i := 0 to XBlock - 1 do
for j := 0 to YBlock - 1 do
begin
//        ShowMessage(IntToStr(i) + ' - ' + IntToStr(j));
Map[i][j] := meNone;
end;