delphi 调用 js 进行 四则运算

function DoCaculate(exp: string): string;
var
script: Variant;
begin
script := CreateOleObject('ScriptControl');
script.Language := 'JavaScript';
// showmessage(exp);
Result := script.Eval(Exp);
end;