Ayuda con Boton

[adonias]

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
//alerto cuando cliqueo el boton
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


//Chequeamos y activamos los botones segun INI

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