Click an move components at runtime

Procedure TForm1.Panel1MouseDown ( Sender : TObject ; Button : TMouseButton ;

   Shift : TShiftState ; X , Y : Integer ) ;

Const

   SC_DragMove = $F012 ; { a magic number }

Begin

   ReleaseCapture ;

   Panel1.perform ( WM_SysCommand , SC_DragMove , 0 ) ;

End ;