GR32 bilder verdunkeln

[alienous]

Delphi-Quellcode:

procedure makeDarker32(Bitmap: TBitmap32; const dp: Byte = -20);
var
  PixelLine: PColor32array; 
  x, y: integer;
begin
  for y := 0 to Bitmap.height - 1 do
  begin
    PixelLine := Bitmap.ScanLine[y];
    for x := 0 to (Bitmap.width) - 1 do
       PixelLine[x] := Lighten(PixelLine[x], -100);
  end;
end;

so korrekt? kann man noch was am code machen um die geschwindigkeit zu erhöhen?
ansonsten binnich zufrieden, nun wirds auch dunkler ohne das es ins grüne abdriftet