XMLDocument: сопоставление тегов и нодов

[Gonzo]

Доброе время суток, уважаемые коллеги!
Столкнулся со следующей проблемой:
Делаю визуализацию XML-документа в TreeView.
Накидал такую процедуру:

procedure TMianForm.BuildTree(XMLNodeList:IXMLNodeList; ParentNode:TTreeNode);
//заполнение дерева из файла XML
var i:integer;
    BufXMLNodeList:IXMLNodeList;
    BufParentNode:TTreeNode;
begin
 if XMLNodeList.Count>0 then
  begin
   i:=XMLNodeList.Count;
   while i>0 do
    begin
     if XMLNodeList[XMLNodeList.Count-i].NodeType=ntText then
     BufParentNode:=MainTree.Items.AddChild(ParentNode,XMLNodeList[XMLNodeList.Count-i].Text);
     if XMLNodeList[XMLNodeList.Count-i].HasChildNodes then
      begin
       BufXMLNodeList:=XMLNodeList[XMLNodeList.Count-i].ChildNodes;
       BuildTree(BufXMLNodeList,BufParentNode);
      end;
     dec(i);
    end;
  end;
end;

Вызываю так:

XMLDoc: TXMLDocument;
MainTree: TTreeView;

procedure TMianForm.XMLFileToTree(SourceFileName:String);
begin
 Try
  LockWindowUpdate(MainTree.Handle);
  XMLDoc.LoadFromFile(SourceFileName);
  XMLDoc.Active := True;
  BuildTree(XMLDoc.ChildNodes,nil);
 finally
  XMLDoc.Active := False;
  LockWindowUpdate(0);
 end;
end;

При обходе XML кол-во нодов больше чем реальное кол-во тегов XML-документа. Т.е. каждый тег состоит из нескольких нодов. Напр. тег и текст тега - это разные ноды. Вот какие типы нодов бывают:

type TNodeType = (ntReserved, ntElement, ntAttribute, ntText, ntCData, tEntityRef, ntEntity, ntProcessingInstr, ntComment, ntDocument, ntDocType, ntDocFragment, ntNotation);

Собственно проблема заключается в том чтобы каждому тегу сопоставить составляющие ноды.

[alexxx.yagoda]

может поможет вот это
http://parsing-and-i.blogspot.com/20...ew-delphi.html