Source position: graphbmpfunctions.pas line 184
procedure BmpKeepRed(
Src: TBitmap;
factor: extended
);