GR32 bilder verdunkeln

[alienous]

Delphi-Quellcode:

procedure makedarker(Bitmap: TBitmap32; const dp: Byte = 10);
var
  PixelLine: PColor32Entryarray;
  x, y: integer;
begin

  for y := 0 to Bitmap.height - 1 do
  begin

    PColor32Array(PixelLine) := Bitmap.ScanLine[y];

    for x := 0 to (Bitmap.width) - 1 do
       // für die drei Farbkanäle sähe das so aus:
       PixelLine[x].R := PixelLine[x].R - round(PixelLine^[x].R / dp);
       PixelLine[x].G := PixelLine[x].G - round(PixelLine^[x].G / dp);
       PixelLine[x].B := PixelLine[x].B - round(PixelLine^[x].B / dp);
  end;
end;

so müsste das eigentlich auch gehn oder? wenn ich als parameter 100 übergebe, merke ich nichts, weil fast nichst subtrahiert wird, wenn ich 2 als dp übergebe, wird die farbe des bildes verändert, aber es wird grün :O eigentlich sollte es doch dunkler werden aber nicht grüner oder? ist die berechnung nun falsch oder wieso bekommt das bild einen grünstich