var
  RootNode: IXMLNode;
  Doc: TXMLDocument;
begin

  // Erzeuge ein Dokument
  Doc := TXMLDocument.Create(nil);

  try

    Doc.Active := True;

    // Root Node
    Doc.AddChild('DynamicUserForm');
    // Parent node
    RootNode := Doc.DocumentElement;

    (... Dinge tun ...)

    Doc.SaveToXML(Result);

    Doc.Active := False;

  finally

    Doc := nil;

  end;

end;