GR32 bilder verdunkeln

[alienous]

hi,

ja, ich weiss, mit der suche findet man proceduren zum verdunkeln, aber hab nix mit scanline + GR32 gefunden, aber habs schonmal versucht zu basteln, probleme gibt es noch mit dem array

Delphi-Quellcode:

procedure dunkler(Bitmap: TBitmap32; const dp: Byte = 10);
var
  PixelLine: pColor32array; //hier gibts problmeme, weiss nicht welchen typ ich hier angeben muss
  x, y: integer;
begin

  for y := 0 to Bitmap.height - 1 do
  begin
    PixelLine := Bitmap.ScanLine[y];
    for x := 0 to (Bitmap.width * 3) - 1 do
       PixelLine^[x] := PixelLine^[x] - round(PixelLine^[x] / dp); 
  end;
end;

den code hab ich hier im forum gefunden, und wollte ihn halt für gr32 umschreiben.
wenn ich den code so ausführe, wird er compiliert, aber beim aufruf gibt es irgendwann ne accessviolation

findet da jemand den fehler?
währe echt cool, thx