[NumLock]

если совсем лень самому писать, то:
(WebBrowser.Document as IHTMLDocument2).parentWindow.execScript('var r='+Edit.Text+'; document.write(r+"<br>");', 'javascript');

список математических функций: http://www.spravkaweb.ru/jscript/objects/math/

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

unit Unit1;   interface   uses   MSHTML,   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   StdCtrls, ExtCtrls, OleCtrls, SHDocVw;   type   TFormMain = class(TForm)     WebBrowser: TWebBrowser;     Panel: TPanel;     Edit: TEdit;     Button: TButton;     Memo: TMemo;     procedure FormCreate(Sender: TObject);     procedure ButtonClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   FormMain: TFormMain;   implementation   {$R *.dfm}   procedure TFormMain.FormCreate(Sender: TObject); begin   if WebBrowser.Document=nil then WebBrowser.Navigate('about<b></b>:blank');   while WebBrowser.Document=nil do Application.ProcessMessages; end;   procedure TFormMain.ButtonClick(Sender: TObject); begin   (WebBrowser.Document as IHTMLDocument2).body.innerText:=''; <font color="Red">  (WebBrowser.Document as IHTMLDocument2).parentWindow.execScript('var r='+Edit.Text+'; document.write(r+"<br>");', 'javascript');</font>   Memo.Lines.Insert(0, (WebBrowser.Document as IHTMLDocument2).body.innerText); end;   end.

http://data.cod.ru/84745