Set Cursor Position

procedure TForm1.Button1Click(Sender: TObject);

var

MausPos: TPoint;

begin

GetCursorPos(MausPos);

label1.Caption := IntToStr(MausPos.x);

label2.Caption := IntToStr(MausPos.y);

end;

// Set mouse position to (x,y)

procedure TForm1.Button2Click(Sender: TObject);

begin

SetCursorPos(600, 600);

end;