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

[[egostar]]

Muy bien, entonces has esto

1. Quita lo que tienes en el evento OnCreate, como lo estabas haciendo inicialmente
2. Dale doble click a uno de los botones y colocas la función que quieres que se ejecute
3. Selecciona los demas botones, ve a Eventos y en el evento OnClick selecciona el evento del primer boton.
4. Listo, compila y ejecuta.

Salud OS

Edito:

No habia visto lo de las variables de cada botón pero en el evento "común" deberia de tener algo así, puede haber algo mas adecuado pero esto es lo que se me ocurre así de bote-pronto.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if (sender as TButton).Name = 'Button1' then begin
     //Asigna Variables Boton 1
  end;
  if (sender as TButton).Name = 'Button2' then begin
     //Asigna Variables Boton 2
  end;
  if (sender as TButton).Name = 'Button3' then begin
     //Asigna Variables Boton 3
  end;
  if (sender as TButton).Name = 'Button4' then begin
     //Asigna Variables Boton 4
  end;
  Ejecutor(var1, var2 );
end;

[adonias]

:P

Funciono ... mil gracias