IXMLDOMDocument használata

var
  XMLDoc: IXMLDOMDocument;
…
XMLDoc:=CoDOMDocument.Create;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then begin
    XMLDoc.Load(OpenDialog1.FileName);
    TreeView1.Items.BeginUpdate;  TreeView1.Items.Clear;
    BuildDOMTree(XMLDoc, nil);
    TreeView1.Items[0].Expand(true);
    TreeView1.TopItem:=TreeView1.Items[0];  TreeView1.Items.EndUpdate;
  end;
end;

procedure TForm1.BuildDOMTree(DOMNode: IXMLDOMNode; ParentNode: TTreeNode);
var
  i: integer;
  TreeNode: TTreeNode;
begin
  if (DOMNode.NodeType = NODE_ELEMENT)
  or (DOMNode.NodeType = NODE_DOCUMENT) then
  begin
    TreeNode:=TreeView1.Items.AddChild(ParentNode, copy(DOMNode.text,1,40)+' <'+DOMNode.NodeName+'>');
    for i:=0 to DOMNode.ChildNodes.Length-1 do
      BuildDOMTree(DOMNode.ChildNodes[i], TreeNode);
  end;
end;