Du kannst die gleiche Ereignisbehandlungsmethode mehreren OnClicks zuweisen. Das geht entweder über den Objektinspektor oder eben im Code zur Laufzeit:
Delphi-Quellcode:
...
Button1.OnClick := MultiClicker;
Button2.OnClick := MultiClicker;
...
Wichtig ist dabei eigentlich nur, daß im obigen Beispiel MultiClicker die korrekte Signatur hat also eine procedure ist und als Parameter Sender:TObject hat. Innen drin sollte sie natürlich unterschiedlich auf die verschiedenen Buttons reagieren, aber dafür ist ja der Sender da.
Sherlock