Как узнать координаты курсора мыши

Если вам нужно узнать координаты курсора мыши (узнать в какой точке экрана находится курсор), то можно использовать следующий код:

procedure TForm1.Button1Click(Sender: TObject);
var
  foo: TPoint;
begin
  GetCursorPos(foo);
  ShowMessage('(' + IntToStr(foo.X) + ' ,' + IntToStr(foo.Y) + ')');
end;

В данном примере используется функция GetCursorPos. Она считывает экpанные кооpдинаты текущего положения куpсоpа.