[borockov]

Код:

procedure TForm1.Button14Click(Sender: TObject);
var
  HTMLDocument: IHTMLDocument2;
  PersistFile: IPersistFile;
  j:integer;
begin
for j:=0 to pagecontrol1.PageCount-1 do
 HTMLDocument:=TWebbrowser(pagecontrol1.pages[j].Controls[0]).Document as IHTMLDocument2;
  PersistFile  := HTMLDocument as IPersistFile;
  PersistFile.Save(StringToOleStr('D:\'+pagecontrol1.Pages[j].Caption+'.html'), System.True);
end;
end.

В таком случае выдаёт ошибку "list index out of bounds (30) ", но конкретную строку не показывает. Есть подозрения что ошибка кроется тут

Код:

PersistFile.Save(StringToOleStr('D:\'+pagecontrol1.Pages[j].Caption+'.html'), System.True);