Odczyt kliknięcia myszy BCB 6

Tak jak w temacie - może wie ktoś czy jest jakaś funkcja API do sprawdzenia kliknięcia - podobna jest do odczytu pozycji kursora.
Wiem że jest mnóstwo opisów hook, ale dla delphi a tego to ja nigdy nie rozumiałem.

No to po sprawie - już mam: <ort>GetAsyncKeyState()</ort>
A oto i kod:

int x = 1;
int y = 1;

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(GetAsyncKeyState(VK_LBUTTON) != 0)
{
Label1->Caption = "Lewy przycisk został wcisnięty po raz " + IntToStr(x++);
}

if(GetAsyncKeyState(VK_RBUTTON) != 0)
{
Label2->Caption = "Prawy przycisk został wcisnięty po raz " + IntToStr(y++);
}

while(GetAsyncKeyState(VK_LBUTTON) != 0 || GetAsyncKeyState(VK_RBUTTON) != 0 )
{
0;
}
}

===================================================
Prawda że proste i nie tak zakręcone jak w delphi ?!