delphi 调用javascript

function ExecScript(Code,Lang,Func:string):string; 
var 
  script:OleVariant; 
begin 
  try 
    script:=CreateOleObject('ScriptControl'); 
    script.Language:=Lang; 
    script.AddCode(Code); 
    Result:=script.Eval(Func); 
  except 
  end; 
end;