WebBrowser, открытие каждой ссылки в новой вкладке

procedure TForm1.Button2Click(Sender: TObject);
begin
for i:=0 to  Listbox2.Count-1 do
begin
interval:=strtoint(Edit6.Text);
[B]TWebbrowser(pagecontrol1.pages[i].Controls[0]).navigate(listbox2.Items[i]);[/B]
sleep(interval);
application.ProcessMessages;
end;
sleep(interval);
application.ProcessMessages;
statusbar1.Panels[4].Text:='';
end;

   for i := 0 to ListBox2.Count - 1 do
   begin
      (PageControl1.Pages[i].FindComponent('MyWeb') as TWebBrowser).Navigate(ListBox2.Items[i]);
      // ...
   end;

// при создании вкладки
      wb := TWebBrowser.Create(ts); // ts : TTabSheet
      TWinControl(wb).Parent := ts;
      TWinControl(wb).Name := 'MyWeb';
      wb.Align := alClient;

CreateNewTab('new title');

// В классе формы описываем ActiveTabs : Integer
// и обнуляем ее в конструкторе.
 
procedure TForm2.CreateNewTab(s : string);
var
   ts : TTabSheet;
   wb : TWebBrowser;
begin
   if ActiveTabs >= PageControl1.PageCount then // Все вкладки заполнены?
   begin
      ts := TTabSheet.Create(PageControl1); // Тогда создаем новую
      ts.Parent := PageControl1;
      ts.PageControl := PageControl1;
      ts.Caption := s;
      PageControl1.ActivePage := ts;
 
      wb := TWebBrowser.Create(ts);
      TWinControl(wb).Parent := ts;
      TWinControl(wb).Name := 'MyWeb';
      wb.Align := alClient;
      wb.OnNewWindow2 := wbNewWindow2;
   end
   else
      PageControl1.ActivePageIndex := ActiveTabs; // Нет? Активизируем свободную
end;
 
// Кнопка заполнения из ListBox-а:
procedure TForm2.Button1Click(Sender: TObject);
var i : Integer;
begin
   ActiveTabs := 0;
   for i := 0 to ListBox1.Count - 1 do
   begin
      (PageControl1.Pages[i].FindComponent('MyWeb') as TWebBrowser).Navigate(ListBox1.Items[i]);
      Inc(ActiveTabs);
   end;
end;
 
// Обработчик OnNewWindow2:
procedure TForm2.wbNewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
begin
   CreateNewTab('new title'); // Создаем новый таб или активизируем пустой
 
   // И назначаем браузер, лежащий на только что созданном табе, приёмником
   ppDisp := (PageControl1.ActivePage.FindComponent('MyWeb') as TWebBrowser).DefaultDispatch;
   Inc(ActiveTabs); // Еще одна вкладка добавилась к занятым
end;

 wb.OnNewWindow2 := wbNewWindow2;

type
  TForm2 = class(TForm)
    // Этот раздел Дельфи обслуживает сама, не будем ей мешать ...
 
  private
    { Private declarations }
    // А вот тут и ниже можно добавлять то, что нужно.
    ActiveTabs : Integer;
 
    procedure wbNewWindow2(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
    procedure CreateNewTab(s : string);
 
  public
    { Public declarations }
  end;