Delphi操作XML

XMLDocument1.Active:=false;      
XMLDocument1.LoadFromFile(ExtractFilePath(Application.ExeName)+'*.xml');
XMLDocument1.Active:=true;
Root:=XMLDocument1.DocumentElement;
Node:=Root.ChildNodes.First;
while Node<>nil do
begin
  Memo1.Lines.Add(Node.AttributeNodes.Nodes['name'].Text);
  Node:=Node.NextSibling;
end;
XMLDocument1.Active:=false;