截取图像一部分 TRect

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);//取消clred部分的copy
  Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyOther);
  Bitmap.Free;
end;