Auf die Befehle eines Buttons zugreifen

[mkinzler]

Delphi-Quellcode:

procedure T<Form>.Button1Click(Sender: TObject);
begin
    //Methode für mehrere Buttons
    if (Sender as TButton).Name = 'Button1'  then
    begin
      //Button1
    end
    else
    begin
      //Button2
    end;
end;