IHTMLElement. Получить список атрибутов тега

var nn:OleVariant;j,i,cnt,cntattr:integer; p:Pointer; domnode:IHTMLDOMNode; 

   attrs:IHTMLAttributeCollection;
   atr:IHTMLDOMAttribute;
   aName,aVal:String;
  begin
    if Elem=nil then begin
     Collection:=IHTMLElementCollection(Document.body.all);
    end;
    cnt:=Collection.length;
    for i:=0 to cnt-1 do begin
     if Collection.item(i,0).QueryInterface(IID_IHTMLElement,p)=S_OK then begin
      Elem:=IHTMLElement(p);
      if elem.QueryInterface(IID_IHTMLDOMNode,p)=S_OK then begin
        domnode:=IHTMLDOMNode(p);
        ...:=domnode.nodeName;
        ...:=Elem.innerHTML;
        //****************************** Attributes *********************************************
          p:=domnode.attributes;
          if p<>nil then begin
           if domnode.attributes.QueryInterface(IID_IHTMLAttributeCollection,p)=S_OK then begin
            attrs:=IHTMLAttributeCollection(p);
            cntattr:=attrs.length;
            for j:=0 to cntattr-1 do begin
              nn:=j;
              if attrs.item(nn).QueryInterface(IID_IHTMLDOMAttribute,p)=S_OK then begin
                atr:=IHTMLDOMAttribute(p);
                if not VarIsNull(atr.nodeValue) then begin
                  aName:=atr.nodeName;
                  aVal:=trim(VarToStrDef(atr.nodeValue,''));
                  if aVal<>'' then begin
                     ListBox.Items.Append(aName+'='+aVal);
                  end;
                end;
              end;
            end;
           end;
          end;
        //***************************************************************************************
       end;
     end;
    end;
  end;