Denkbar wäre eine Prozedur, welche als OnClick-Ereignis der Buttons aufgerufen wird und welche anschließend anhand des Buttons, der die Prozedur aufgerufen hat ("Sender"), die Individualisierung vornimmt.
Beispiel:
Delphi-Quellcode:
procedure ButtonsClick(Sender: TObject);
var s: String;
begin
case (Sender as TButton).Name of
'Button1': s := 'Test';
'Button2': s := 'Hey';
end;
Edit1.Text := s;
end;