Problema con WebBrowser y OnNewWindow

[beginner01]

saludos.

con este codigo se te abrira en una nueva ventana de tu aplicación

Código Delphi [-]
procedure TForm1.wb1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
 var
 ventana2: TForm1;
begin
  Application.CreateForm(tForm1,ventana2);
  ventana2.wb1.RegisterAsBrowser := true;
  ppDisp := ventana2.wb1.Application;
  ventana2.Top:=ventana2.Top+20;
  ventana2.Left:=ventana2.left+20;
  ventana2.Show;

end;