WebBrowser элемаеты

[Halogen]

Добрая ночь

Есть код

procedure TfrmMyBrowser.Timer1Timer(Sender: TObject);
var
  MausPos: TPoint;
  Element: IHTMLElement;
  imgElement: IHTMLIMGElement;
  scrElement: IHTMLLinkElement;
  x, y: Integer;
  Doc: IHTMLDocument2;
  CurrentWB: TWebbrowser;
begin
  if chkShowElementInfo.Checked then
  begin
    begin
      CurrentWB := GetCurrentWB;
      if Assigned(CurrentWB) then
      begin
        Doc := CurrentWB.Document as IHTMLDocument2;
        if Assigned(doc) then
        begin
          // Get Current Mouse Position
          GetCursorPos(MausPos);
          // Convert the screen coordinates to client coordinates
          mauspos := CurrentWB.ScreenToClient(mauspos);
          x := MausPos.x;
          y := MausPos.y;
          // Get the element under the mouse cursor
          Element := GetElementAtPos(doc, x, y);
          if Assigned(Element) then
          begin
            // element properties
            edElementTag.Text := Element.tagName;
            edElementId.Text := Element.id;
            edElementinnerText.Text := Element.innerText;
            edElementinnerHTML.Text := Element.innerHTML;
            edElementclassName.Text := Element.className;
            Element.QueryInterface(IHTMLIMGElement, imgElement);
            if assigned(imgElement) then
              edElementhref.Text := imgElement.href;

            Element.QueryInterface(IHTMLLinkElement, scrElement);
            if assigned(scrElement) then
              edElementhref.Text := scrElement.href;
          end;
        end;
      end;
    end;
  end;
end;

Как я только над ним не шаманил но не как не получается
Element.className;
Element.innerText;
Просто ловить эти два значения , код был взять из исходника мини веб браузер там столько всего поэтому наверное и не могу разобраться

[Halogen]

Все сам решил , извините , кому интересно вот реализация

uses MSHTML

procedure TFormKlick.Timer1Timer(Sender: TObject);
var
  MausPos: TPoint;
  x, y: Integer;
  Element: IHTMLElement;
   Doc: IHTMLDocument2;
begin
  Doc := Webbrowser1.Document as IHTMLDocument2;
  GetCursorPos(MausPos);
  mauspos := WebBrowser1.ScreenToClient(mauspos);
    x := MausPos.x;
          y := MausPos.y;
            Element := GetElementAtPos(doc, x, y);
          if Assigned(Element) then
          begin
           Edit1.Text := Element.className;
           edit2.Text := Element.innerText;
          end;
end;

function TFormKlick.GetElementAtPos(Doc: IHTMLDocument2; x,
  y: integer): IHTMLElement;
begin
 Result := nil;
  Result := Doc.elementFromPoint(x, y);
end;

Так нравятся такие моменты когда стараешься и все получается =)))))