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:
26:
27:
28:
29:
30:

procedure TForm1.MoveSelection(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  source,dest: TRect;
  dy,dx: Integer;
begin
  if(selected) then
  begin
    dx := X - dcursorx;
    dy := Y - dcursory;

    if(x1 > x0) AND (y1 > y0) then begin source := Rect(x0,y0,x1,y1); dest := Rect(0,0,x1-x0,y1-y0); end;
    if(x1 < x0) AND (y1 > y0) then begin source := Rect(x1,y0,x0,y1); dest := Rect(0,0,x0-x1,y1-y0); end;
    if(x1 < x0) AND (y1 < y0) then begin source := Rect(x1,y1,x0,y0); dest := Rect(0,0,x0-x1,y0-y1); end;
    if(x1 > x0) AND (y1 < y0) then begin source := Rect(x0,y1,x1,y0); dest := Rect(0,0,x1-x0,y0-y1); end;

    Image1.Canvas.Pen.Width := 0;
    Image1.Canvas.Pen.Color := clWhite;
    Image1.Canvas.Brush.Color := clWhite;

    Image2.Width := source.Right - source.Left;
    Image2.Height := source.Bottom - source.Top;
    Image2.Left := dx;
    Image2.Top := dy;


    Image2.Canvas.CopyRect(dest,Image1.Canvas,source);
    Image1.Canvas.Rectangle(source); 

  end;
end;					

1:

Image.Picture.Bitmap := nil;