Tworzenie komponetu i obsluga myszki

Najprościej będzie wytłumaczyć problem na podstawowym komponencie jakim jest Buton , chce zrobić cos w tym stylu i mam juz wszystko oprócz obsługi zdarzenia OnClick i nie wiem jak je mam tam umieścić aby to wszystko działało.

Próbowałem paru rzeczy ale nie mogę go zmusić aby to zadziało właśnie wtedy jak kliknę sobie na komponent.

Jeszcze dobrze jak by się pojawiało to zdarzenie w zakładce Events po zainstalowaniu komponentu w Borlandzie 6. [???]

Juz sobie poradzilem moze komus sie przyda :

w pliku *.cpp:

void __fastcall TSwitch::Click()
{
if (OnClick)
OnClick(this);
//tutaj podajesz kod ktory ma byc wykonany po kliknieciu
}

w pliku *.h:

DYNAMIC void __fastcall Click();