Procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const sc_DragMove=$F012; begin ReleaseCapture; Button1.Perform(WM_SYSCOMMAND, sc_DragMove, 0); end;