[borockov]

Друзья всем привет, такой момент, наконец то мой webbrowser начал отображать названия вкладок, т.е title страниц вот таким образом.

Код:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
((TWinControl(Sender as TWebBrowser).Parent) as TTabSheet).Caption :=
((TWebBrowser(Sender).document as IHTMLDocument2).title);

end;  

Теперь при добавлений страницу в БД, мне надо получить навзание вкладки сохраняемой страницы в edit.
Я пытаюсь получить его так

Код:

form2.Edit1.Text:=((TWebBrowser(Sender).document as IHTMLDocument2).title);

Всё компилится нормально, но когда дело доходит до того самого момента получения названия вкладки в edit вылетает ошибка access violation. Вопрос где я ошибся? Есть ли какие нибудь другие варианты решения вопроса?
p.s вкладки построены с помощью pagecontrol