XML Datei schreiben

[Alex_ITA01]

Hallo erstmal,
ich habe mir grade mal die TXMLDocument Kompo von Delphi (7Pro) angeguckt...
Ich würde gerne in Delphi bestimmte Daten eingeben und diese dann nach einem gewissen System in eine XML-Datei schreiben.Hat einer ein kleines Beispielprog oder Hilfe wie ich die Dateien mit dieser Kompo erstelle und schreibe?!
Danke
MFG Alex

Folgendes habe ich schon versucht nur es geht nicht.

procedure TForm1.Button1Click(Sender: TObject);
var
root : IXMLNode;
elem : IXMLNode;
begin
root := XMLDocument1.CreateElement('Firma','L');
elem := XMLDocument1.CreateElement('Mitarbeiter','H');
// elem.SetAttributeNS('name','H','OLAF');
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;

[Alex_ITA01]

procedure TForm1.Button1Click(Sender: TObject);
var
root : IXMLNode;
elem : IXMLNode;
begin
root := XMLDocument1.CreateElement('Firma','L');

elem := XMLDocument1.CreateElement('Mitarbeiter','H');

// elem.SetAttributeNS('name','H','OLAF');
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

[Alex_ITA01]

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