[Karsh]

вот так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  p: TPoint;
begin
  p.X:= 10;
  p.Y:= 50;
  Mouse.CursorPos:= p;
end;