function ExecScript(Code,Lang,Func:string):string; var script:OleVariant; begin script:=CreateOleObject('ScriptControl'); script.Language:=Lang; script.AddCode(Code); Result:=script.Eval(Func); end; procedure TForm1.Button1Click(Sender: TObject); beg…