Sprawdzanie, czy komponent obsługuje zdarzenie

Należy sprawdzić, czy wskaźnik funkcji obsługującej zdarzenie jest równy NULL, jeśli tak to zdarzenie nie jest obsługiwane, w przeciwnym wypadku zdarzenie jest obsługiwane:

Unit1.cpp

void __fastcall TForm1::Button3Click(TObject *Sender)
{
   if (Form1->OnClick == NULL)
      ShowMessage("Formularz nie obsluguje zdarzenia OnClick");
   else
      ShowMessage("Formularz obsluguje zdarzenie OnClick");
}