<?xml version="1.0" encoding="UTF-8"?>

<daten name="MEINE DATEN">

 <bestand name="X1">
  <regal dat="1a">CD1</regal>
  <regal dat="1b">CD2</regal>
  <regal dat="1c">CD3</regal>
  <regal dat="1d">CD4</regal>
  <regal dat="1e">CD5</regal>
 </bestand>
 
 <bestand name="X2">
  <regal dat="2a">VH1</regal>
  <regal dat="2b">VH2</regal>
 </bestand>


 <bestand name="X3">
  <regal dat="3a">DC1</regal>
</bestand>

</daten>

procedure TFormular1.Button1Click(Sender: TObject);
var
  FDoc: TDomDocument;
  FNodeElement: TDomElement;
  FNodeText: TDomText;
  FNodeComment: TDomComment;
  s: string;
  Stream: TFileStream;

  node: TDOMElement;

  i, u: Integer;
  K: TDomNodeList;
begin
  FDoc := TDomDocument.Create(DomImplementation1);

  FNodeElement := TDomElement.Create(FDoc, 'daten');
  FDoc.AppendChild(FNodeElement);
  FNodeText := TDomText.Create(FDoc);
  FNodeText.NodeValue := #10#32#32;
  FDoc.FindFirstChildElement.AppendChild(FNodeText);

  with FDoc.FindFirstChildElement do
  begin
    SetAttribute('name', 'MEIN DATEN');
  end;





  FNodeElement := TDomElement.Create(FDoc, 'bestand');
  FDoc.FindFirstChildElement.AppendChild(FNodeElement);
  FNodeText := TDomText.Create(FDoc);
  FNodeText.NodeValue := #10#32#32;
  FDoc.FindFirstChildElement.ChildNodes.Item(1).AppendChild(FNodeText);




  FNodeElement := TDomElement.Create(FDoc, 'bestand');
  FDoc.FindFirstChildElement.AppendChild(FNodeElement);
  FNodeText := TDomText.Create(FDoc);
  FNodeText.NodeValue := #10#32#32;
  FDoc.FindFirstChildElement.ChildNodes.Item(2).AppendChild(FNodeText);


  u := 1;
  for i := 0 to 10 - 1 do
  begin

    FNodeElement := TDomElement.Create(FDoc, 'regal');
    FDoc.FindFirstChildElement.ChildNodes.Item(1).AppendChild(FNodeElement);



    with TDomElement(FDoc.GetElementsByTagName('bestand').Item(0).ChildNodes.Item(u)) do
    begin
      SetAttribute('dat', 'X' + IntToStr(i));
    end;

    u := u + 2;

    FNodeText := TDomText.Create(FDoc);
    FNodeText.NodeValue := #10#32#32#32#32;
    FDoc.FindFirstChildElement.ChildNodes.Item(1).AppendChild(FNodeText);


    FNodeText := TDomCDATASection.Create(FDoc);
    FNodeText.AppendData( 'CD' + IntToStr(i));
    FDoc.GetElementsByTagName('regal').Item(i).AppendChild(FNodeText);

  end;


  FNodeText := TDomText.Create(FDoc);
  FNodeText.NodeValue := #10;
  FDoc.FindLastChildElement.AppendChild(FNodeText);




  Stream := TFileStream.Create('test.xml', fmCreate);
  DomToXmlParser1.WriteToStream(FDoc, 'UTF-8', Stream);
  Stream.Free;

  FDoc.Free;
end;