Все очень просто.

Создаем переменную (у нас это будет cord) типа TPoint

var cord : TPoint; 

Дальше даем переменной кординаты

Windows.GetCursorPos(cord);

Теперь мы имеем две переменые типа Integer: cord.X и cord.Y. Это и есть кординаты курсора по оси X и Y

Вот пример :

var
Form1: TForm1;
cord:TPoint;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Default:=true;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
Windows.GetCursorPos(cord);
ShowMessage('Координаты грызуна по оси X='+IntToStr(cord.X)+' и Y='+IntToStr(cord.Y));
end;


При нажатие на Enter будет возникать сообщение с кординатами

Что бы поменять кординаты (то есть переместить курсор программно), надо использовать функцию

function SetCursorPos(X, Y: Integer): BOOL;

и задавать кординаты с помощью команды:

SetCursorPos(ось X, ось Y);

Вот и все