Ja, das geht auch
Delphi-Quellcode:
If Sender is TButton then...
begin
TypeCast
end;
If Sender is TBitButton then
begin
TypeCast
end;
Und wenn Du Dir das Leben weiter vereinfachen möchtest, dann nimm die Prozedur Btn1Click und verwende sie für alle Deine Button auf einmal. Durch den übergebenen Sender weiss der Event wen er breiter machen muß. Alle Buttons auswählen und als Ereignis für OnClick einfach Btn1Click wählen. Damit fallen die Prozeduren Btn2Click / Btn3Click aus Deinem Quellcode weg!