Knoten erstelung mit XMLDocumnet

[Leo675]

Hallo alle zusammen!
ich versuche mit Hilfe von XMLDokument eine XML-Datei zu entwerfen(BDS2006) und bei anlegen von zweitzem Knoten (Unterknoten von map_liste) kommt es immer wieder zu "Zugriffverletzung bei Adresse XXXXXXX in Modul XXXXXXX. Lesen von Adresse 000000000"

Hier ist der Code, den ich benutze:

Delphi-Quellcode:

uses
XMLDoc, xmlintf;

finction XML_erstellen(...): boolean;
var
var MyXML_DOC : TXMLDocument; 
map_liste, new_node:IXMLNode;

begin
result := false;
MyXML_DOC := TXMLDocument.Create(nil);
MyXML_DOC.Active:= True;
MyXML_DOC.Version := '1.0';
MyXML_DOC.StandAlone  := 'yes';
MyXML_DOC.Encoding  := 'UTF-8';

map_liste := MyXML_DOC.AddChild('map_liste');
//MyXML_DOC.SaveToFile(FileDIR+FormatDateTime('HHNNDDMMYY',Now)+FileName);
new_node  := map_liste.AddChild('adresse');

.
.
.
result := true;
MyXML_DOC.SaveToFile(FileDIR+FormatDateTime('HHNNDDMMYY',Now)+FileName);
MyXML_DOC.Active:= False;
MyXML_DOC.Free;
end;

das XML datei bei auskommentiertem SaveToFile entsteht in dem Form:

Code:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<map_liste/>

Ich komme einfach nicht weiter! Es scheint mir so zu sein das mein Oberknoten nicht da ist! Kann mir jemand helfen?