Wie eine Sub Sub Node erstellen

[BBoy]

Ich nutze NativeXML und möchte innerhalb einer subnode noch eine subnode erstellen. Weis aber nicht wie.
So soll das mal aussehen:

Code:

<gpx>
 <name>Petersen</name>
 <vorname>Peter</vorname>
 <wpt>
   <kind1>Jan</kind1>
   <kind2>Florian</kind2>
   <neuessub>
     <daten1>Test</daten1>
     <daten2>Test</daten2>
   </neuessub>
 </wpt>
</gpx>

Es geht um die <neuessub> node. Die bekomme ich nicht hin.

Hier mein Code:

Delphi-Quellcode:

 XMLDoc := TNativeXML.CreateName('gpx');
  xmlDoc.Root.AttributeAdd('xmlns:xsi','http://www.w3.org/2001/XMLSchema-instance');
  xmlDoc.Root.AttributeAdd('xmlns:xsd','http://www.w3.org/2001/XMLSchema');
  xmlDoc.Root.AttributeAdd('version','1.0');
  xmlDoc.Root.AttributeAdd('creator','GCT');
  xmlDoc.Root.AttributeAdd('xsi:schemaLocation','Test');
  xmlDoc.Root.AttributeAdd('xmlns','http://www.topografix.com/GPX/1/0');

  xmlDoc.Root.NodeNew('name').Value := 'Planer';
  xmlDoc.Root.NodeNew('desc').Value := 'Planer';
  xmlDoc.Root.NodeNew('author').Value := 'GC';
  xmlDoc.Root.NodeNew('email').Value := '[e-mail]';

  datamodule1.TourTable1.First;
    for i := 1 to datamodule1.TourTable1.RecordCount do begin
      with xmlDoc.Root.NodeNew('wpt') do begin
        WriteAttributeString('lat',datamodule1.TourTable1CacheLat.AsString);
        WriteAttributeString('lon',datamodule1.TourTable1CacheLon.AsString);
        WriteString('time', datamodule1.TourTable1CacheTime.AsString);
        WriteString('name', datamodule1.TourTable1CacheName.AsString);
        WriteString('desc', datamodule1.TourTable1CacheDesc.AsString);
        WriteString('url', datamodule1.TourTable1CacheUrl.AsString);
        WriteString('urlname', datamodule1.TourTable1CacheUrln.AsString);
        WriteString('sym', datamodule1.TourTable1CacheSym.AsString);
        WriteString('type', datamodule1.TourTable1CacheType.AsString);

// hier sollte die Sub SubNode eingefügt werden !!!!

        datamodule1.TourTable1.Next;
      end;
    end;
  xmlDoc.XmlFormat := xfReadable;
  XMLDoc.SaveToFile('test.gpx');

Kann mir bitte jemand erkläre wie ich da eine weiter subnode hinbekomme? Danke!!