使用CopyRect Method，這是Delphi HELP的範例喔!
var
  Bitmap: TBitmap;
  MyRect, MyOther: TRect;
begin      MyRect := Rect(10,10,100,100);      MyOther := Rect(10,111,100, 201);
  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile('c:\windows\tartan.bmp');
  Form1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack);
  Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect); 把 Bitmap的MyRect的區域複製到Form1的Myother區域
  Bitmap.Free;
end;