Pobieranie nazwy komponentu

Witam

Mam sto przycisków w moim programie i nie uśmiecha mi się podczepiać do każdego jednej, lekko jedynie zmienionej procedury.

Jak mam zrobić, żeby po kliknięciu na dowolny z tych stu przycisków pobierać jego nazwę i jeszcze coś na nim wykonywać?

Bo "sender" nie ma metody "name"..

pozdr

(Sender As TButton).Name
(Sender As TButton).Caption
(Sender As TButton).CoTamChcesz

albo troszke krocej:

TButton(Sender).Name;

z tym, że jeśli Sender nie jest TButton to oba warjanty zachowają się inaczej, o czy trzeba pamiętać