[friz]

чего ты мучаешься? тут же все просто

Код:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
webbrowser2: TWebBrowser;
begin
WebBrowser2 := TWebBrowser.Create(MainForm);
TWinControl(WebBrowser2).Name := 'MyWebBrowser';
TWinControl(WebBrowser2).Parent := TabSheet2;
WebBrowser2.Align := alClient;
WebBrowser2.RegisterAsBrowser := true;
ppDisp := WebBrowser2.Application;
end;

и все!