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;