Gracias por su ayuda, pero aun asi no funciona...
pegare el codigo completo:
Código Delphi
[-]function Ejecutor(const var1:string ;var2:string ) : tnotifyevent;
begin
showMessage('Esta es una funcion desde un boton con varias variables');
end;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
C4_server1_nombre :string,
begin
C4_server1_nombre:= retINI( 'C4', 'SERVER1_Nombre');
if Length(Trim(C4_server1_nombre)) > 0 then
begin
Button1.Caption := C4_server1_nombre;
Button1.Visible := true;
Button1.onClick := Ejecutor(var1, var2 );
end;
end;
gracias