Procedure TForm1.Button3Click (Sender: Tobject); Var Bitmap: Tbitmap; MyRect, Myother: TRECT; Begin
MyRect: = Rect (0, 0, 100, 100); Myother: = Rect (0, 101, 100, 200); Bitmap: = Tbitmap.create; Bitmap.LoadFromFile ('d: /aa.bmp'); Form1.canvas.brushcopy (MyRect, Bitmap , MyRect, CLRED; // Cancel the Copy Form1.canvas.copyRect (Myother, Bitmap.canvas, Myother); Bitmap.Free; End;