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:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

procedure TForm1.FormMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button <> mbLeft then Exit;
  X := X + Left;
  Y := Y + Top;
  MoveDown := True;
  MoveX := X;
  MoveY := Y;
  StartLeft := Left;
  StartTop := Top;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button <> mbLeft then Exit;
  MoveDown := False;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  X := X + Left;
  Y := Y + Top;
  if not MoveDown then Exit;
  if (MoveX = X) and (MoveY = Y) then Exit;

  if StartLeft-MoveX+X < 0 then
    Left := 0
  else if StartLeft-MoveX+X+Width > Screen.Width then
    Left := Screen.Width-Width
  else
    Left := StartLeft-MoveX+X;

  if StartTop-MoveY+Y < 0 then
    Top := 0
  else if StartTop-MoveY+Y+Height > Screen.Height then
    Top := Screen.Height-Height
  else
    Top := StartTop-MoveY+Y;
end;					

1:
2:

ReleaseCapture;
 Perform(WM_SYSCOMMAND, $F012, 0);					

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

procedure TMainForm.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;
  if (Message.Result = htClient) and
     (ControlAtPos(Point(Message.xPos, Message.yPos), True, True) <> nil)
  then
    Message.Result := htCaption;
end;