uses ComOBJ 
 
 procedure TForm1.Button1Click(Sender: TObject); 
 var 
  Formula: OleVariant; 
 begin 
   Formula:= CreateOleObject('MSScriptControl.ScriptControl'); 
   Formula.Language:='VBScript'; 
   Edit1.Text:=Formula.Eval(Edit1.Text); 
 end;