Problem bei der Erstellung eines XML-Dokuments mit TXMLDocument

Question

Ich bin neu in Delphi und jetzt habe ich zu lesen, erstellen Sie eine xml. mein Code ist die folgende:

function foo.createXMLDocument(): TXMLDocument;
var
  res: TXMLDocument;
  rootNode: IXMLNode;
  sl : TStringList;
begin
  res := TXMLDocument.Create(nil);
  res.Active := true;
  rootNode := res.AddChild('label');
  // create string for debug purposes
  sl := TStringList.Create;
  sl.Assign(res.XML);// sl is empty after this assignment
  //add more elements
  generateDOM(rootNode);

  Result := res;
end;

Das Problem ist, dass die Anzahl der untergeordneten Knoten zunimmt, res.XML aber leer ist. Ganz zu schweigen davon, dass der Rest der Elemente in der generateDOM-Prozedur nichts zu tun scheint. Ich werde sehr froh mit Ihrer Hilfe sein.