Odczyt rozmiaru kursora myszy

Aby po kliknięciu przycisku Button1 na etykiecie Label1 wyświetlić rozmiar kursora myszy używamy funkcji Windows API GetSystemMetrics():

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Label1->Caption = "Rozmiar kursora myszy: " + IntToStr(GetSystemMetrics(SM_CXCURSOR)) +
                      ":" + IntToStr(GetSystemMetrics(SM_CYCURSOR));
}