[borockov]

Как я уже говорил, вкладки у меня реализованы таким образом: поставил pagecontrol, создал 20 табов и на каждый ташит прицепил по компоненту webbrowser, в принципе всё работает как надо, но вопрос с сохранением всё же не могу решить=(
Таким образом я могу сохранить текущую страницу.

Код:

procedure TForm1.Button14Click(Sender: TObject);
var
  HTMLDocument: IHTMLDocument2;
  PersistFile: IPersistFile;
  j:integer;
begin

  HTMLDocument :=   Webbrowser1.Document as IHTMLDocument2;
  PersistFile  := HTMLDocument as IPersistFile;
  PersistFile.Save(StringToOleStr('D:\SavedFile.html'), System.True);
end;
end.

Пытался сохранить все страницы разом как то так

Код:

procedure TForm1.Button14Click(Sender: TObject);
var
  HTMLDocument: IHTMLDocument2;
  PersistFile: IPersistFile;
  j:integer;
begin
  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;
end;
end.

Но естесственно ничего у меня не вышло=( выдаёт что то вроде "list index out of bounds (-куча цифр) " вотъ.
Помогите пожалуйста, сохранить в цикле.