Du bekommst den Sender mit:
Code:
procedure onclick(sender: TObject)
Du kannst dann in der Methode folgendes machen:
Pseudocode:
Delphi-Quellcode:
if (sender is TButton) then
with (Sender as TButton) do
begin
if Name = 'Name von Button 1' then ...
else if Name = 'Name von Button 2' then....
end;
Du kannst also Prüfen ob der Sender eine bestimmte Klasse ist. Wenn ja kannst Du ihn in den Typ casten und dann auf dem Button weiterarbeiten.