[DELPHI] Se trovi funzione esegui...

[morfeusflash]

IL MIO PROBLEMA E' CHE IO VORREI PASSARE IL NOME DELLA FUNZIONE NELLA VARIABILE

procedure TForm1.Operazione(NomeFUNZIONE:String);
Var
i:integer;
begin
i:= listbox1.Items.IndexOf(NomeFUNZIONE);
if i = -1 then showmessage('Funzione non abilitata!')
else form1....  ;
end;