uses ComObj;

function MathStr(const Str : string) : string;
var
  vScriptControl : OLEVariant;
begin
  try
    vScriptControl := CreateOleObject('MSScriptControl.ScriptControl');
    vScriptControl.Language := 'VBScript';
    result := vScriptControl.Eval(Str);
  except
    result := '';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Str, Rst : string;
begin
  Str := '3+8*9+(7-5)';
  Rst := MathStr(Str);
  Showmessage(Rst);
end;