Universal Java Script Decoder своими руками

Помогите нубу...
В журнале "Хакер" встретил описание этой тулзы, и только одну стоку кода

Код (Text):

1. Memo1.Text := (WebBrowser1.ControlInterface.Document as IHTMLDocument2).body.outerHTML;

попытался сделать своими руками примерно так:

Код (Text):

1. unit Unit1;
2.  
3. interface
4.  
5. uses
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.   Dialogs, StdCtrls, OleCtrls, SHDocVw, SHDocVw_TLB, MSHTML_TLB;
8.  
9. type
10.   TForm1 = class(TForm)
11.     WebBrowser1: TWebBrowser;
12.     Memo1: TMemo;
13.     Button1: TButton;
14.     procedure Button1Click(Sender: TObject);
15.   private
16.     { Private declarations }
17.   public
18.     { Public declarations }
19.   end;
20.  
21. var
22.   Form1: TForm1;
23.  
24. implementation
25.  
26. {$R *.dfm}
27.  
28. procedure TForm1.Button1Click(Sender: TObject);
29. var
30.   Flags, TargetFrameName, PostData, Headers: OleVariant;
31. begin
32.     WebBrowser1.Navigate('file:///C:/Documents and Settings/I&E/Рабочий стол/protected_qq.html', Flags,
33.     TargetFrameName, PostData, Headers);
34.     Memo1.Text := (WebBrowser1.ControlInterface.Document as IHTMLDocument2).body.outerHTML;
35. end;
36.  
37. end.

прога вылетает с EAccessViolation
что не так? что добавить?