Такая проблема:

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
s : string;
ov : OleVariant;
iDoc : IHTMLDocument2;
iDisp : IDispatch;
iFrames2 : IHTMLFramesCollection2;
iWindow2 : IHTMLWindow2;
iFrameDoc : IHTMLDocument2;
begin
iDoc:=Form1.Browser1.ControlInterface.Document as IHTMLDocument2;
iFrames2:=iDoc.frames as IHTMLFramesCollection2;
for i:=1 to iFrames2.length do
begin
ov:=i-1;
iDisp:=iFrames2.item(ov);
iDisp.QueryInterface(IHTMLWindow2,iWindow2);
iWindow2.document.QueryInterface(IHTMLDocument2,iFrameDoc);
{ВЫДАЕТ ОШИБКУ "НЕТ ДОСТУПА"}
s:=iFrameDoc.title;
end;
end;