Popups im Twebbbrowser_v1

[Noobinator]

hy community

Ich bastele gerade an einem Webbrowser, und um Popups zu bekommen, habe ich folgende Procedure:

Delphi-Quellcode:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
NewWindow: TForm1;
begin // Instanzen erzeugen
NewWindow := TForm1.Create(self);
NewWindow.Show;
ppDisp := NewWindow.Webbrowser_v11.DefaultDispatch;
end;

nun ist das Problem: sobald ich ein Popup öffnen möchte, wird mein Programm angehalten, und es öffnet sich ein Fenster mit der caption CPU, und mit ganzvielen komischen Zahlen und Buchstaben

also ich möchte, das popups und links im eigenen Browser angezeigt/geöffnet werden und nicht im IE.

wo ist der Fehler? oder geht das ganz anderst?

Mfg
Noobinator