No necesitas definir 121 eventos, basta asignar el mismo a los 121 botones:
Código Delphi
[-]
for I := 0 to 120
Botones[i].OnClick := BotonClick;
donde Botones puede ser un arreglo dinámico de TButton. Lo de la clase está bien, pero te comento lo anterior en caso de que quieras reconsiderarlo.
Bye