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

procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
accept := Source is TShape;
end;

procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
 if (Sender is TForm) and (Source is TShape) then 
  begin 
    with Sender as TForm do 
    begin 
      shape1.Left := X-25;
      shape1.Top := Y-25;
    end; 
  end;
end;					

1:
2:
3:
4:
5:

WMNCHitTest (var M: TWMNCHitTest);
begin
  inherited;
  if M.Result = htClient then M.Result := htCaption;
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 Drag: Boolean;
    StartX, StartY: Integer;

procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 If Drag Then Begin
  Shape1.Top := Shape1.Top+Y-StartY;
  Shape1.Left := Shape1.Left+X-StartX;
 End;
end;

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Drag := True;
 StartX := x;
 StartY := y;
end;

procedure TForm1.Shape1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Drag := False;
end;