Muy bien, entonces has esto
- Quita lo que tienes en el evento OnCreate, como lo estabas haciendo inicialmente
- Dale doble click a uno de los botones y colocas la función que quieres que se ejecute
- Selecciona los demas botones, ve a Eventos y en el evento OnClick selecciona el evento del primer boton.
- 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
end;
if (sender as TButton).Name = 'Button2' then begin
end;
if (sender as TButton).Name = 'Button3' then begin
end;
if (sender as TButton).Name = 'Button4' then begin
end;
Ejecutor(var1, var2 );
end;