Hola.
uso la función CopyRect(), he aplicado un ejemplo de ayuda de delphi 6, y no entiendo los parámetros de esta función.
Este es el código q he usado:
procedure TForm1.Recortar_ImagenClick(Sender: TObject);
begin
//MyRect := Rect(10,10,100,100);
MyRect:=Rect(10,10,100,100);
MyOther:=Rect(10,111,210,340);
//MyOther := Rect(10,111,100,210);
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('D:\COSAS\INTERNET_DELPHI\002.bmp');
//Form1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack);
Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect);
Bitmap.Free;
end;
Saludos,gracias.