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;