Get Pixels

[XXcD]

Hallo,
kann mir einer verraten wie ich das von Flash in Delphi übersetzen kann?

Code:

function handleLoadComplete(event:Event) : void {
    var ba:ByteArray;
    
    var event:* = event;
    ba = event.target.content.bitmapData.getPixels(new Rectangle(0, 0, 30, 23));

Momentan mache ich das so:

Delphi-Quellcode:

var
a: array [0..689] of Byte;
...

  for I := 0 to 23 - 1 do
   begin
      for N := 0 to 30 - 1 do
       begin
        a[I*N]:=GetPixel(Form1.Image1.Picture.Bitmap.Handle, N, I);
       end;
   end;

Aber wenn ich versuche aus dem Array einen sha256 hash zu erstellen kommt ein falscher Wert raus.