Source position: mymisc.pas line 323
procedure BrushCopy(
DestCanvas: TCanvas;
const Dest: TRect;
Bitmap: TBitmap;
const Source: TRect;
Color: TColor
);