Example:
This example comes from Greg Liefs "LETTING USERS MOVE CONTROLS AT RUN-TIME".

begin
   ReleaseCapture;
   (Sender as TWinControl).Perform(WM_SYSCOMMAND, $F012, 0);
end ;