如何使弹出窗口在动态生成的TWebBrowser中显示(100分)

我想编一个多窗口浏览器，如何在打开一个网页后使其弹出窗口在另一个TWebBrowser中显示？如何在点击链接后使新打开的窗口在另一个TWebBrowser中显示？
这两个问题应该都差不多吧,望各位大侠指教！

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

非常奇怪，弹出窗口就是没显示，大家帮我看一下代码哪里不对了
function Tform1.newURL(const URL:string = ''): IDispatch;
var
NewWb: TWebBrowser;
NewTb: TTabSheet;
begin
newtb:=TTabSheet.Create(PageControl1);
NewTb.PageControl := PageControl1;
NewTb.ShowHint := True;
newtb.Show;
NewWb:=TWebBrowser.Create(newtb);
NewWb.Align := alClient;
TWinControl(NewWb).Parent := NewTb;
NewWb.OnNewWindow2 := wb1NewWindow2;
if URL <> '' then
newwb.Navigate(URL);
Result := NewWb.Application;
end;

procedure TForm1.wb1NewWindow2(Sender: TObject;var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp := newURL();
end;

newtb.insertcontrol(newwb);

加上这句也不行啊
有哪位大侠知道啊

大富翁们在哪里啊，帮帮忙啊

上面的代码好像是我以前贴的,没有经过测试，该不会有问题吧，好多人都用了的。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3415156
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3414288
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3413708

还是不行，谁能详细说说我的代码哪里错了

执行newURL('www.163.com')后，网易的弹出广告不能显示