Du kanst die Mausereignisse (MouseDown MouseMove) abfangen und entsprechend darauf reagieren
Delphi-Quellcode:
procedure TForm33.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift:
TShiftState; X, Y: Integer);
begin
self.Left := self.Left-10;
end;