Popup blockiert IE

[Ydobon]

Hallo!

Eigentlich dürfte es da doch keine Fallstricke geben. GetIE holt oder macht ein Browserfenster mit der entsprechenden URL. Danach soll nur mal kurz ein Popupfenster eingeblendet werden. Irgendwie kommen diese Zeilen aber dem IE in die Quere. Danach kann man z.B. über das Menü nicht mehr Suchen oder die Schriftgröße ändern. Hat jemand eine Ahnung, woher das kommen und wie man es vermeiden könnte.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var pElement: OLEVariant;
    tim: Cardinal;
    pop: IHTMLPopUp;
    IE: IWebBrowser2;
    win: IHTMLWindow2;
begin
  IE:=GetIE(Edit1.Text);
  win:=(IE.Document as IHTMLDocument2).parentWindow;
  pop:=(win as IHTMLWindow4).createPopup(emptyParam) as IHTMLPopup;
  with (pop.document as IHTMLDocument2).body do
  begin
    style.backgroundColor:='aqua';
    style.border:='solid black 1px';
    innerText:='poppig';
  end;
  pElement:=(IE.Document as IHTMLDocument2).body;
  pop.Show(200, 200, 60, 20, pElement);
  tim:=GetTickCount;
  while GetTickCount-tim<5000 do Application.ProcessMessages;
end;