Mehrere Objekte Ansprechen:Beispiel Buttons !

[Semikolon]

Ich habe noch eine komplexe Frage,ich hoffe ich nerve euch nicht,denn die Fragen
quälen mich schon seit langem und ich arbeite gerade an einem Projekt,für welches
ich diese Erkenntisse brauche.
+++++

Ich weiß jetzt wie ich Strings in Componentennamen umsetze(Findcomponent) aber wie mache ich es andersrum?

Konkretes Beispiel:

Ich habe 3 Buttons,button1,button2,button3.Wie kann ich beim Klick auf einen der Buttons dessen Namen in einem
Label ausgeben und zwar wenn ich es nicht konkret sonder abstrakt per Abfrage des Senders mache?
Etwa in der Art:

Delphi-Quellcode:

var a:string;
begin
a:=String(Sender as Tbutton);
label1.caption:=a;