[Adrenalin666]

Код:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  tss: TTabSheet;//вкладка
begin
  if Twebbrowser(Sender).ReadyState <> READYSTATE_COMPLETE then
  begin
    ppDisp := nil;
    Cancel := True;
  end else
  begin
    tss := CreateTabBrowser('about:blank', 'Новая вкладка');//создаем вкладку с пустым адресом
    WaitForBrowser(Twebbrowser(tss.Controls[0]));//ожидаем завершения работы Twebbrowser
    ppdisp := (Twebbrowser(tss.Controls[0])).Application;//передаем фокус активному веббровсеру
    WaitForBrowser(Twebbrowser(tss.Controls[0]));//ожидаем завершение работы веббровсера(активного разумется)

  end;
  end;

вот открывает новую вкладку только у меня чтото не хочет ругается на CreateTabBrowser не опознает её