Schreib dir eine neue Methode:
procedure Tform1.DoSomething(Sender: TObject);
und ruf diese in den Ereignisprozeduren der Schaltflächen auf. Dann kannst du jeder Schaltfläche in der Eigenschaft
Tag einen eindeutigen Wert zuweisen, den du dann in
DoSomething auswertest:
Delphi-Quellcode:
var
Tag: Integer;
begin
Tag := (Sender as TButton).Tag;
case Tag of
0: ...;
1: ...;
end;