Set mouse to new position

Use Mouse_Event function. For example:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Mouse_Event(MOUSEEVENTF_MOVE, 50, 50, 0, GetMessageExtraInfo);
end;