怎么获取IE框架?

我想从外部获取IE的框架数，但下面这段代码运行后出错。请高手解答。var
  Form1: TForm1;
  IE1: IWebBrowser2;procedure TForm1.Button1Click(Sender: TObject);
var IE1: IWebBrowser2;
    Flags: OLEVariant;
begin
IE1 := CreateOleObject('InternetExplorer.Application') as iwebbrowser2; //显示IE
IE1.visible := True;
IE1.Navigate('http://community.csdn.net/', Flags, Flags, Flags, Flags);
end;procedure TForm1.Button2Click(Sender: TObject);
var
HTMLDocument:IHTMLDocument2;
Dispatch: IDispatch;
j:integer;
Vj:OLEVariant;
begin
HTMLDocument:=IHTMLDocument2(ie1.Document);
for j:=0 to HTMLDocument.frames.length -1 do  //单击后这一句出错
begin
Vj:=j;
Dispatch:=HTMLDocument.frames.item(Vj);
end;end;