[borockov]

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

Код:

1 2 3 4 5 6 7

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.
Я пытаюсь получить его так

Код:

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

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