procedure TMainform.WebBrowser1DownloadComplete(Sender: TObject);
begin
  if Assigned(WebBrowser1.Document) then
  begin
    htmlDoc := WebBrowser1.Document as IHTMLDocument2;

    htmlDoc.onmouseover := (TEventObject.Create(Document_OnMouseOver) as IDispatch);
  end;
end;

procedure TMainForm.Document_OnMouseOver;

var
  element : IHTMLElement;
begin
  if htmlDoc = nil then Exit;

  element := htmlDoc.parentWindow.event.srcElement;

  if LowerCase(element.tagName) = 'a' then
  begin
    Statusbar1.Simpletext := Format('Link : %s',[element.getAttribute('href',0)]);
  end
  else if LowerCase(element.tagName) = 'img' then
  begin
    Statusbar1.Simpletext := Format('Bild : %s',[element.getAttribute('src',0)]);
  end
  else
  begin
    Statusbar1.Simpletext := Format('TAG : %s',[element.tagName]);
  end;
end;

procedure TMainform.WebBrowser1DownloadComplete(Sender: TObject);
var
  W : IHTMLWindow2;
  u : IUnknown;
  S : String;
begin
  if Assigned(WebBrowser1.Document) then
  begin
    htmlDoc := WebBrowser1.Document as IHTMLDocument2;
    if htmldoc.parentWindow.frames.length > 0 then
      begin
        u := htmldoc.frames.item(0);
        if Succeeded(u.QueryInterface(IHTMLWindow2,w))
          then begin
                 S := w.name; // Stimmt
                 Caption := S;
                 htmlDoc := W.document as IHTMLDocument2;
               end
          else begin
                 htmlDoc := NIL;
               end;
      end;

    htmlDoc.onmouseover := (TEventObject.Create(Document_OnMouseOver) as IDispatch);
  end;
end;

procedure TWebForm.WebBrowserDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  doc: IHTMLDocument2;
begin
  if Succeeded(pDisp.QueryInterface(IID_IHTMLDocument2, doc)) then
    doc.onmousemove := TEventObject.Create(Document_OnMouseOver) as IDispatch;
end;

procedure TWebForm.WebBrowserDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  wb2: IWebBrowser2;
begin
  if Succeeded(pDisp.QueryInterface(IID_IWebBrowser2, wb2)) then
    with wb2 as IHTMLDocument2 do
      onMouseMove := TEventObject.Create(Document_OnMouseOver) as IDispatch;
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  wb2: IWebBrowser2;
begin
  if Succeeded(pDisp.QueryInterface(IID_IWebBrowser2, wb2)) then
  begin
    htmlDoc := wb2.document as iHTMLDocument2;
    with htmlDoc do
      onMouseMove := TEventObject.Create(Document_OnMouseOver) as IDispatch;
  end;
end;