Url in neumen Fenster öffnen

[citybreaker]

Hallo,
ich hab von SwissdelphiCenter.ch einen Code
das Links in einem neuen Fenster geöffnet werden.

Delphi-Quellcode:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; 
  var ppDisp: IDispatch; var Cancel: WordBool); 
var 
  NewWindow: TForm1; 
begin 
  // a new instance of the form will be created 
  // Eine neue Instanz wird erstellt 
  NewWindow := TForm1.Create(self); 

  NewWindow.Show; 
  ppDisp := NewWindow.Webbrowser1.DefaultDispatch; 
end;

Alerdings kennt meine TWebbrowser Komponente
Webbrowser1.DefaultDispatch nicht.