Moin Gara,
Du kannst auch jedem Button die gleiche OnClick-Prozedur zuweisen, und das auch dynamisch, also zur Laufzeit:
MyButton.OnClick := DieOnClickProzedur;
Wenn Du die Button dann in einer Schleife durchgehst (
FindComponent), entsprechende Benennung vorausgesetzt, wird der Code dann recht kurz ausfallen.