TWebBrowser -> POPUP URL?

[demo13]

kannst du mir vllt. noch sagen was an dem code falsch ist dann bin ich wunschlos glücklich

Delphi-Quellcode:

procedure TForm4.webNewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
var
  NewWindow: TForm4;
  URL: WideString;
begin
  cancel:=Popupblocker;
  if cancel=false then
    begin
      NewWindow:=TForm4.Create(self);
      URL:=((TEmbeddedWB(ASender).document as IHTMLDocument2).activeElement as IHTMLElement).getAttribute('href', 0);
      NewWindow.Show;
      NewWindow.web.Navigate(url);
    end;
end;

der compiler sagt:
"Undeclared identifier: 'TEmbeddedWB'"
und das gleiche für
"document"