运行期间运动的按钮

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

  {if SsCtrl in Shift then
  Begin  }
    ReleaseCapture;
    SendMessage(button1.handle,wm_SysCommand,
      $F012,0);
 // end;

end;