Ayuda con Boton

[adonias]

Hola Amigos.

Tengo el siguiente problema. en mi form hay 8 botones que todos deben ejecutar la misma accion pero con distintas variable.

Entonces lo que hago es lo siguiente:

Código Delphi [-]
Button1.Caption := Nombre del Botton;
Button1.Visible := true;
Button1.OnClick := Mi_function(Mis varable);

El problema es que cuando ejecuto el exe, la funcion se ejecuta enseguida, y NO cuando hago CLICK sobre el boton.

No se como solucionar esto....

gracias por su ayuda