Componentes - descobrindo quem eh sender via classname

ClassName é propriedade de TObject do qual todos derivam.

Assim voce pode escrever :

       ShowMessage('O nome da classe é: '+Sender.ClassName);