Fehler beim Drehen eines Bildes

[scp]

So gehts (bei mir):

Delphi-Quellcode:

procedure Drehen90Grad(Bitmap:TBitmap);
var P       : PRGBQuad;
    x,y,b,h : Integer;
    RowOut  : PRGBQuad;  // <-- Hier Typ geändert
    help    : TBitmap;
begin
   Bitmap.pixelformat := pf32bit;
   help := TBitmap.Create;
   help.PixelFormat := pf32bit;
   b := bitmap.Height; 
   h := bitmap.Width;
   help.Width := b;
   help.height := h;
   for y := 0 to (h-1) do begin
     rowOut := help.ScanLine[y];
     P  := Bitmap.scanline[bitmap.height-1];
     inc(p,y);
     for x := 0 to (b-1) do begin
        rowout^ := p^;  // <-- Und hier geändert
        Inc(rowout); // <--- Das dazu
        inc(p,h);
     end;
   end;
   bitmap.Assign(help);
end;