uses
  {...,} ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  sc: Variant;
begin
   sc := CreateOLEObject( 'ScriptControl' );
   try
      sc.Language := 'JavaScript'; // Можно указать язык VBScript
      sc.Timeout := -1;
      sc.AllowUI := true;
      Caption := sc.Eval( '2+2*2' );
   finally
      sc := Unassigned;
   end;
end;