webbrowser 的NewWindow2是一个特别有意思的事件！

procedure TForm1.wb1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);

begin
   ppDisp := form1.wb2.Application;    //新窗口在web2中打开
   Cancel:=false;
end;

难怪好多代码不允许投放在客户端软件上！这个也太好控制了！