Asignar una funcion al evento on click

[abmicros]

Hola buenas, estoy haciendo una aplicacion en la que tengo que poner muchos botones (unos 50) que hagan casi lo mismo, por lo que esta pensando usar un array de botones para poder modificar caracteristicas como captions, posiciones, colores y cosas asi mediante un for, pero tengo problemas al asignar el metodo OnClick, ya que no puedo hacer:

boton1.Onclick := 'procedure'+i;


¿Como puedo hacer algo asi?


Muchas gracias.