Zweidimensionales TBitmap array?

[Dominik]

Hallo!

Ich muss ein großes Bild z.B. ein Foto in viele kleine Quadrate zerlegen. Die einzelnen Quadrate müssen wieder als TBitmap zur Verfügung stehen.

Ich habe mir gedacht dafür nimmt man am besten ein zweidimensionales Bitmap Array. Ich habe noch nie mit mehrdimensionalen Arrays in Delphi gearbeitet und habe dementsprechend wenig Ahnung davon.

Ich bekomme eine Zugriffsverletzung an dieser Stelle: BmpGrid[s,z] := TBitmap.Create;

mein Code sieht im Prinzip so aus:

Delphi-Quellcode:

TBmpArray = array of array of TBitmap;

var
  BmpArray: TBmpArray;
  Bmp: TBitmap;


.....


  SetLength(BmpGrid, 15, 20);

  for z := 0 to 14 do begin
    for s := 0 to 19 do begin
      BmpGrid[s,z] := TBitmap.Create;
      BmpGrid[s,z].Height := TexSize;
      BmpGrid[s,z].Width := TexSize;
      BmpGrid[s,z].Assign(Bmp);
      Bmp2.Free;
    end;
  end;

Was habe ich falsch gemacht?