Danke leute.
Ich wusste nicht wirklich nach was ich suchen soll.
Das von Klaus hat leider nicht funktioniert, aber das:
Delphi-Quellcode:
procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
SetCaptureControl(nil);
Perform(wm_SysCommand, sc_Move or 1, 0);
end;
end;