Мне очень часто при написании игр жанра “стратегия” приходилось знать координаты курсора

Так вот я покажу вам как это сделать.

1)Создайте новое приложение New-> Aplication.

2)В Object Inspector перейдите на вкладку Events.

3)Найдите там OnMouseMove, и щелкните на него два раза, у вас должно получится так.

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

end;

4) Теперь запишем следующее

Caption:= 'X: ' +IntToStr(x) + 'Y: ' + IntToStr(y);

Врезультате у вас должно быть так.

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

 Caption:= 'X: ' +IntToStr(x) + 'Y: ' + IntToStr(y);

end;

Все. Надеюсь, вам это пригодится.