procedure TFrm_main.web1NewWindow3(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool; dwFlags: Cardinal; const bstrUrlContext,
  bstrUrl: WideString);
begin
        Cancel:=True;
        showmessage(bstrUrl);  //显示弹出窗口的URL
end;

两条语解决大问题，可以阻止WebBrower弹出新窗口，显示新窗口的URL地址，获取到弹出窗口的URL地址后，就可以在当前窗口里浏览弹窗的网址了。