[NumLock]

легко считает даже функции "(Math.sqrt(9)+47)*100":

Код:

uses
  ComObj,

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit: TEdit;
    procedure Button1Click(Sender: TObject);

procedure TForm1.Button1Click(Sender: TObject);
var
  WebBrowser: OleVariant;
begin
  WebBrowser:=CreateOleObject('InternetExplorer.Application');
  WebBrowser.Navigate('about:blank');
  WebBrowser.Document.parentWindow.execScript('var r='+Edit.Text+'; document.write(r);', 'javascript');
  ShowMessage(WebBrowser.Document.body.innerText);
  WebBrowser.Quit;
end;

http://data.cod.ru/134562