1:
2:
3:

vbmp := tBitMap.create;
//Hier möchte ich vbmp den Auschnitt rect(x1,y1,x2,y2) des image1.picture.bitmap zuweisen
vbmp.assign(image1.picture.bitmap);					

1:
2:

vbmp.width := x2; vbmp.height := y2;
vbmp.canvas.copyrect(rect(0,0,x2,y2), image1.canvas, rect(x1,y1,x2,y2));					

1:
2:
3:
4:
5:
6:
7:

  if x2 >= x1 then dx := x2-x1 else dx := x1-x2;
  if y2 >= y1 then dy := y2-y1 else dy := y1-y2;
  vbmp := TBitMap.create;
  vbmp.assign(image1.picture.bitmap);
  vbmp.canvas.copyrect(Rect(0,0,dx,dy), vbmp.canvas, rect(x1,y1,x2,y2));
  vbmp.width := dx;
  vbmp.height := dy;