Source position: graphutil.pp line 76
procedure ScaleImg(
AImage: TCustomBitmap;
AWidth: Integer;
AHeight: Integer
);