Code verkürzen?

[Luckie]

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;