Title: How to get and set mouse 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;