XML Speichert nicht

[citybreaker]

Hallo!

Habe wieder mal ein Problem. Möchte in eine XML Datei ein paar Daten
schreiben, jedoch speichert er diese Daten nicht.

Delphi-Quellcode:

procedure NewAdress(NName,VName,Strasse,Ort);
var AdressNode, newNode: iXmlDomNode;
    i: integer;
begin
  AdressNode := xmlDoc.createElement('kunden');
  newNode := xmlDoc.createElement('id');

  i := StrToInt(MainFrm.ListView1.Items[MainFrm.ListView1.Items.Count-1].Caption) +1;
  newNode.text := IntToStr(i);

  newMovie.appendChild(newNode);
  newNode := xmlDoc.createElement('name');
  newNode.Text := NName;
  newMovie.appendChild(newNode);
  newNode := xmlDoc.createElement('vorname');
  newNode.Text := VName;
  newMovie.appendChild(newNode);
  newNode := xmlDoc.createElement('strasse');
  newNode.Text := strasse;
  newMovie.appendChild(newNode);
  newNode := xmlDoc.createElement('ort');
  newNode.Text := ort;

  xmlDoc.documentElement.appendChild(Adressnode);
  UpdateListView;
end;