>100 Button mit gleichen Aufgaben ... einfacher machen????

[Wheelie]

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;