WebBrowser 不打开新窗口

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

或者

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

窗体中要放上两个WebBrowser控件。。。  都是抄别人的。。。