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

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin


 if Button = mbLeft then  { Nur ziehen, wenn linke Maustaste gedrückt ist }
         form1.BeginDrag(false);  { Wenn ja, dann ziehen }


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

type
  TForm1 = class(TForm)
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    procedure WmNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

//...

procedure TForm1.WmNCHitTest(var Msg: TWMNCHitTest);
begin
  DefaultHandler(Msg);
  if Msg.Result = HTCLIENT then
  begin
    Msg.Result := HTCAPTION;
  end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (ssLeft in Shift) then
  begin
    ReleaseCapture;
    SendMessage(Form1.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);
  end;
end;					

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

 procedure TForm1.WmNCHitTest(var Msg: TWMNCHitTest); 
begin 
  DefaultHandler(Msg); 
  if Msg.Result = HTCLIENT then 
  begin 
    Msg.Result := HTCAPTION; 
  end; 
end;