Odczyt pozycji kursora

Aby podczas przesuwania kursora myszki na etykiecie Label1 była wyświetlana aktualna pozycja kursora tworzymy funkcję obsługującą zdarzenie OnTimer komponentu Timer (zakładka komponentów System) i wywołujemy funkcję Windows API GetCursorPos() podając jako argument zmienną typu POINT, funkcja ta zapisuje do tego argumentu współrzędne kursora myszki, które później wyświetlamy na etykiecie dokonując wcześniej konwersji z liczby na łańcuch AnsiString() za pomocą funkcji IntToStr():

Unit1.cpp

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   POINT pozycja;

   GetCursorPos(&pozycja);
   Label1->Caption = IntToStr(pozycja.x) + ":" + IntToStr(pozycja.y);
}