SetLength(Data, xx);
for x := 0 to xx - 1 do begin
SetLength(Data[x], yy);
for y := 0 to yy - 1 do begin
Data[x][y] := 0;
end;end;