Das wird dann zu 246, genau.
[edit] Wie ist es denn so?
bmp.Canvas.Pixels[Col,Row] := RGB(max(rot-10, 0), max(gruen-10, 0), max(blau-10, 0));
[/edit]
[edit2] Nee, vermutlich auch Quatsch, da müsste man ggf. erst nach integer casten. Dann doch lieber eine Abfrage voranstellen, das ist dann auch selbsterklärend.
Delphi-Quellcode:
if rot < 10
then
rot := 0
else
dec(rot, 10);
[/edit2]