AddChild funktioniert nicht

[aegidos]

Hallo,
Ich habe ein Problem, mein Programm soll eigentlich in eine existente XML-Datei einen Knoten einhängen tut dies aber nicht. Ich habe keine Ahnung woran das liegen kann.

Delphi-Quellcode:

procedure Programm.AddToValidate(text: String);
var
XMLDocument1: IXMLDocument;
iNode              : IXMLNode;
strDummy          :String;
b_flag : bool;
begin
     strDummy := 'C:\validate.xml';
     strDummy := StringReplace(strDummy, '/', '\', [rfReplaceAll, rfIgnoreCase]);
     if( FileExists(strDummy) = true) then
     begin
     XMLDocument1 := TXMLDocument.Create(strDummy);
     //XMLDocument1.Filename:=strDummy;
     XMLDocument1.Active := true;
     XMLDocument1.DocumentElement.AddChild('mat');
     b_flag := XMLDocument1.DocumentElement.HasChildNodes;

     iNode               := XMLDocument1.DocumentElement;
     XMLDocument1.DocumentElement.ChildNodes.FindNode( 'valid_serial' ).AddChild('materialnr');
     XMLDocument1.DocumentElement.ChildNodes.FindNode('valid_serial').ChildNodes.FindNode('materialnr').Text := text;
     XMLDocument1.SaveToFile('strDummy');
     end;
end;

In diese XML Datei soll die Materialnummer eingehängt werden:

Delphi-Quellcode:

<validate>
<valid_serial>
</valid_serial>
</validate>

Tausend Dank jetzt schonmal