В событиях формы ищем строчку OnMouseMove, кликаем два раза и пишем следующий код:
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
TPoint cPt;
GetCursorPos(&cPt);
ShowMessage(int(cPt.x)); // Возвращает x-позицию курсора мыши
ShowMessage(int(cPt.y)); // Возвращает y-позицию курсора мыши
}
Начало отчета координат курсора идёт от левого верхнего угла рабочего стола.