1:
2:
3:
4:
5:

procedure Tmain_form.WebBrowser_v11NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  Cancel := True;
end;					

1:
2:
3:
4:
5:

procedure Tmain_form.WebBrowser_v11NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  ppDisp := main_form.WebBrowser_v11.Application;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  NewWindow: TForm1;
begin

  NewWindow := TForm1.Create(self);
  NewWindow.Show;
  ppDisp := NewWindow.Webbrowser1.DefaultDispatch;
end;