program movemouse;

uses
  windows,
  sysutils;

var pt:tpoint;
begin
     Pt.x := Round(GetSystemMetrics(SM_CXSCREEN)* (65535 / GetSystemMetrics(SM_CXSCREEN)));
     Pt.y := Round(GetSystemMetrics(SM_CYSCREEN)* (65535 / GetSystemMetrics(SM_CYSCREEN)));
     {Move the mouse}
     Mouse_Event( MOUSEEVENTF_ABSOLUTE or
                  MOUSEEVENTF_MOVE,
                  Pt.x,
                  Pt.y,
                  0,
                  0);
end.