1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then begin
Panel1.Left := image1.ScreenToClient(Mouse.CursorPos).x;
Panel1.Top := image1.ScreenToClient(Mouse.CursorPos).y;
end;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if ssLeft in Shift then begin
Panel1.width := panel1.ScreenToClient(Mouse.CursorPos).x;
Panel1.height := panel1.ScreenToClient(Mouse.CursorPos).y;
end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

var SourceBitmap : TBitmap;
    TargetBitmap : TBitmap;
    cut: TRect;

  begin
if ssright in Shift then begin

cut.Top := Panel1.Top;
cut.Left := Panel1.Left;
cut.BottomRight.X := Panel1.Top + Panel1.Height;
cut.BottomRight.Y := Panel1.left + Panel1.Width;
  // kopiert das Rechteck Cut aus der SourceBitmap in die TargetBitmap
  // Dabei wird die Größe von TargetBitmap der größe des Ausschnitts angepasst.
   SourceBitmap:= TBitmap.Create;
  TargetBitmap:= TBitmap.Create;
  SourceBitmap := Image1.picture.bitmap;
   TargetBitmap := Image2.picture.Bitmap;
  TargetBitmap.Width := Cut.Right - Cut.Left;
  TargetBitmap.Height := Cut.Bottom - Cut.Top;

  BitBlt(TargetBitmap.Canvas.Handle, 0, 0, Cut.Right, Cut.Bottom, SourceBitmap.Canvas.Handle, Cut.Left, Cut.Top, SRCCOPY);
  SourceBitmap.Canvas.Refresh;
  Image1.picture.bitmap := image2.picture.bitmap;
end;
end;