1:
2:
3:
4:
5:
6:
7:
8:
9:

<Firma>
    <Mitarbeiter>
        <id>1</id>
        <Name>olaf</Name>
        <Ort>...</Ort>
    </Mitarbeiter>
    <Filiale>
    </Filiale>
</Firma>					

1:
2:

xmldoc := CoDOMDocument.Create;
{ ... }					

1:

xmldoc.loadXML('<Firma><Mitarbeiter><!-- usw. --></Mitarbeiter><Filiale/></Firma>');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure CreateXML
var xmldoc  : IXMLDOMDocument;
    root    : IXMLDOMElement;
    elem    : IXMLDOMElement;
begin
     xmldoc := CoDOMDocument.Create;
     root := xmldoc.createElement('firma');        // neues Element erstellen <- in dem Fall Root element
     elem := xmldoc.createElement('mitarbeiter');  // neues Element erstellen
     elem.setAttribute('name','olaf maier');       // ein Attribut an das Element hängen 
     root.appendChild(elem);                       // Element in RootElement hängen 
     xmldoc.documentElement.appendChild(Root);     // RootElement in Document hängen
    
     xmldoc.save('d:\test.xml');                   // und speichern fertig !!!

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:

  IXMLPage = interface;
  TXMLPageFolders = class;
  TXMLFolder = class;

  IXMLPage = interface(IXMLNode)
    ['{4966633E-A165-43BA-AEEF-86690C1625A6}']
    { Zugriff auf Eigenschaften }
    function Get_Index: Integer;
    function Get_Config: IXMLConfig;
    function Get_LastUpdate: WideString;
// gekürzt
  TXMLPageFolders = class(TXMLNodeCollection, IXMLPageFolders)
  protected
    { IXMLPageFolders }
    function Get_Folder(Index: Integer): IXMLFolder;
    function Add: IXMLFolder;
    function Insert(const Index: Integer): IXMLFolder;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLFolder }

  TXMLFolder = class(TXMLNode, IXMLFolder)
  protected
    { IXMLFolder }
    function Get_FolderID: Integer;
    function Get_FolderName: WideString;
    function Get_FolderUrl: WideString;
    procedure Set_FolderID(Value: Integer);
    procedure Set_FolderName(Value: WideString);
    procedure Set_FolderUrl(Value: WideString);
  end;

u.s.w.

var MXML: IXMLPage;
    CXML: IXMLFolder;
    XML.Active:= true;
    XML.Version:='1.0';
    XML.StandAlone:='yes';
    XML.Encoding:='ISO-8859-1';
    MXML:= GetPage(XML); // Getpage wird vom Wrapper erzeugt, gibt den 1.Knoten zurück
...

    while not Clients.eof do begin// DB abfrage
      CXML:= MXML.PageFolders.Add;  // hin unterknoten hinzufügen
      CXML.FolderID:= ClientsPageID.Value;
...

und als joke sozusagen, noch ein stylesheet draufhauen
function TWeb.ApplyXSL(XMLBody, XSLBody : string) : string;
var
  XSL,
  XML : IXMLDOMDocument;
begin
  try
    XSL:=CreateOleObject('Microsoft.XMLDOM') as IXMLDOMDocument;
    XSL.async:=False;
    XSL.loadXML(XSLBody);
    XML:=CreateOleObject('Microsoft.XMLDOM') as IXMLDOMDocument;
    XML.async:=False;
    XML.loadXML(XMLBody);
    Result:=XML.transformNode(XSL);
  except
    result:='';
  end;
end;