Source position: graphbmpfunctions.pas line 182
procedure BmpKeepBlue(
Src: TBitmap;
factor: extended
);