Ayuda con Boton

[adonias]

Tengo una serie de botones...

cada uno de estos botones, llama la misma accion , pero con distintas variables...
desde el showform le asigno la funcion al boton con sus variables...

NECESITO QUE ESTA FUNCION SE EJECUTE CUANDO HAGAN CLICK.

Si tu intentas crear un form basico y le das a un boton una funcion como esta:

Código Delphi [-]
function funciondelboton():TnotifyEvent;
begin
  showMessage('jo');
end;
{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
Button1.OnClick :=  funciondelboton() ;
end;

el showmesage se ejecuta cuanto tu corres el exe, y no cuando haces click