[friz]

Код:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
WebBrowser2.RegisterAsBrowser := true;
ppDisp := WebBrowser2.Application;
end;

Кто ищет - тот найдет