Сохранение в xml

procedure TXMLTree.SaveTreeToXML;
var
  tn : TTreeNode;
  XMLDoc : TXMLDocument;
  iNode : IXMLNode;
 
  procedure ProcessTreeItem(tn: TTreeNode; iNode: IXMLNode);
var
cNode : IXMLNode;
begin
if (tn = nil) then Exit;
cNode:= iNode.AddChild(tn.Text);//имя узла
{атрибуы узла}
cNode.Attributes['Text'] := tn.Text;
cNode.Attributes['Level'] := IntToStr(tn.Level);
//дочерние узлы
tn := tn.getFirstChild;
while tn <> nil do
begin
ProcessTreeItem(tn, cNode);
tn := tn.getNextSibling;
end;
end;
 
begin
  XMLDoc := TXMLDocument.Create(nil);
  XMLDoc.Active := True;
  iNode := XMLDoc.AddChild('Skin');//создаем корневой элемент
  //атрибуты корневого узла
  iNode.Attributes['name']:='MySkin';
  iNode.Attributes['author']:='vlad';
 
  tn := Tree.TopItem;
  while tn <> nil do //бегаем в цикле пока не пройдемся по всем узлам TreeView
  begin
    ProcessTreeItem (tn, iNode);
    tn := tn.getNextSibling;
  end;
  //сохраняем файл
  XMLDoc.SaveToFile(ChangeFileExt(ParamStr(0),'.XML'));
  //уничтожаем объект
  XMLDoc := nil
end;