with CreateComObject(CLASS_ScriptControl) as IScriptControl do begin Language:='JScript'; ShowMessage(Eval('2*3-5')); end;