procedure TForm1.Button1Click(Sender: TObject);
var
MausePos: TPoint;
begin
GetCursorPos(MausePos); {получение координат мыши}
label1.Caption := IntToStr(MausePos.x);
label2.Caption := IntToStr(MausePos.y);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SetCursorPos(500, 500); {установка стрелки мыши в позицию 500,500}
end;
