Um ein EventHandler zu schreiben der für mehrere Buttons gilt, sollte der so aussehen:
Delphi-Quellcode:
procedure TForm1.AlleButtonClick(Sender: TObject);
begin
// Some Code
end;
Und nun allen Buttons im Objektinspektor beim OnClick Event diesen EventHandler zuweisen.