Jeder Button bekommt einen Wert in der Tag-Eigenschaft zu gewiesen. Dann weißt du jedem Button den gleichen Event-Handler zu. Und der sieht so aus:
Delphi-Quellcode:
procedure TForm1.MyButtonClick(Sender: TObjekt);
begin
case (Sender as TButton).Tag of
1: // erster Button
2: // zweiter Button
3: // dritter Button
end;
end;