Mit diesem Code geht es wunderbar...
Allerdings sind hier keine Errorroutinen drin.
Delphi-Quellcode:
var Bitmap:TBitmap;
// Bitmap ist das ZIEL-Bitmap...
// MeinBitmap mußt Du vorher erstellt und geladen haben..
Bitmap:=TBitmap.Create;
Bitmap.Width:=400;
Bitmap.Height:=400;
Bitmap.Canvas.CopyRect(Rect(0,0,200,200),
MeinBitmap.Canvas,
Rect(0,0,200,200));