[Blackster]

привет у меня все старый вопрос как сделать так чтоб pagecontroll открывал вкладки при каждом новом открытии страницы в webbrowser,тоесть как в опере, пользовался поиском но ничего не нашёл, пользовался таким кодом но он не пашет

Код:

procedure TForm4.sBitBtn5Click(Sender: TObject);
var T:TTabSheet;
    B:TButton;
begin
 T := TTabSheet.Create(nil);
   T.PageControl := PageControl1;
   T.Caption := '-XXX-';
   PageControl1.ActivePage := T;

end;


...

procedure TForm4.PageControl1Change(Sender: TObject);
begin
if PageControl1.PageCount<>0 then
TWebBrowser(PageControl1.ActivePage.Controls[0]).Navigate('/');
end;

всё время выбивает ошибку не при компиляции, а при работе проги когда открываешь страницу в браузере, подскожите в чём проблемма и как её решить. Заранее благодарен.