Wyciaganie nazwy obiektu

Witam.
Jak wyciagnac nazwe obiektu przy pomocy zdarzen na ktorym te zdarzenia sa zdefiniowane?
Np w OnChange , zeby pokazal mi nazwe comboboxa.
Konkretnie tego potrzebuje w metodzie OnDrawCell w StringGridzie, zeby pokazalo nazwe malowanego StringGrida.

parametr Sender

Przykładzik dla kolegi

procedure TForm1.KlikPrzycisku(Sender: TObject);
begin
Label15.Caption:=TButton(Sender).Caption;
end;

Przenosi opis wcisnietego buttona na opis etykiety.