EmbeddedWB DocumentComplete?

[gandime]

Hi,
die Procedure EmbeddedWBDocumentComplete wird ja ausgelöst wenn ein Frame fertig geladen ist bei dem Webbrowser habe ich ich diesen Code verwendet:

Delphi-Quellcode:

var
  WindowName:string;
  ol:OleVariant;
  CurWebBrowser:IWebBrowser;
  TopWebBrowser:IWebBrowser;
begin
  CurWebBrowser:=pDisp as IWebBrowser;
  TopWebBrowser:=(ASender as TWebBrowser).DefaultInterface;
  if CurWebBrowser=TopWebBrowser then
  begin
    s_wb:='main';
  end
  else
  begin
    ol:=CurWebBrowser.Document;
    WindowName:=ol.ParentWindow.Name;
    if (WindowName='Hauptframe') then
    begin
      s_wb:='sub';
    end;
  end;

blos bei dem EmbeddedWB gibt es kein DefaultInterface wie soll ich es sonst machen?

mfg
gandime