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

procedure TForm1.Button1Click(Sender: TObject);
var
  root : IXMLNode;
  elem : IXMLNode;
begin
  root := XMLDocument1.CreateElement('Firma','L');
  elem := XMLDocument1.CreateElement('Mitarbeiter','H');
  elem.Text := 'Hallo';
  root.AddChild(elem.Text);
  XMLDocument1.DocumentElement.AddChild(root.Text);


{  XMLDocument1.FileName := 'C:\H.xml';
  MsgNode.Text := 'Hallo';
  XMLDocument1.AddChild(MsgNode.Text);   }
  XMLDocument1.SaveToFile('C:\H.xml');
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:

procedure TForm1.CreateXML;
var
  xmldoc  : IXMLDOMDocument2;
  root    : IXMLDOMNode;
  elem    : IXMLDOMNode;
  Leer    : IXMLDOMText;
begin
  xmldoc := CoDOMDocument40.Create;

  xmldoc.loadXML('<Messages></Messages>');

  if xmldoc.documentElement.nodeName <> 'Messages' then Exit;

  { Message1 }
  Leer := xmldoc.createTextNode(#13#10#9);
  xmldoc.firstChild.appendChild(Leer);

  root := xmldoc.createElement('Message01');    // neues Element erstellen <- in dem Fall Root element

  Leer := xmldoc.createTextNode(#13#10#9#9);
  root.appendChild(Leer);

  elem := xmldoc.createElement('BOSS');         // neues Element erstellen
  elem.text := 'DU';
  Root.appendChild(elem);                       // Element in RootElement hängen

  Leer := xmldoc.createTextNode(#13#10#9);
  root.appendChild(Leer);

  xmldoc.documentElement.appendChild(Root);

  Leer := xmldoc.createTextNode(#13#10);
  xmldoc.documentElement.appendChild(Leer);

  { Speichern }
  xmldoc.save('C:\test.xml');
end;