In XML löschen und weitere Einträge aktualisieren

[Akut-Programming]

Hmm.. nach ewigen versuchen und umschreiben bzw. neu schreiben hats noch nich gefunzt. Hier is mal der komplette Aufruf meiner Prozedur - Ich hoffe ihr könnt mir nochmal helfen?!

Delphi-Quellcode:

procedure Tfrm_terminplaner.Image2Click(Sender: TObject);
var
  node, parentnode: IXMLDOMNode;
  id,id2,i,i2: integer;
begin
  if lv_eintraege.SelCount=1
    then begin
      Image1.Enabled:=true;
      Image2.Enabled:=true;
    end else
    begin
      Image1.Enabled:=false;
      Image2.Enabled:=false;
    end;
  i:=lv_eintraege.Selected.Index;
  id:=StrToInt(lv_eintraege.Items[i].Caption);
  node :=xmlDoc.selectSingleNode('/PlanView/termin[terminid="'+IntToStr(id)+'"]');
  if node <> nil
  then begin
    parentnode := node.parentNode;
    parentnode.removeChild(node);
    if id=1
    then begin
      for i2:=1 to lv_eintraege.Items.Count
      do begin
        node := xmlDoc.documentElement.selectSingleNode('/PlanView/termin[terminid="'+IntToStr(id)+'"]');
        node.selectSingleNode('terminid').text:=IntToStr(id);
      end;
      end else
      for i2:=1 to lv_eintraege.Items.Count-1
      do begin
        node := xmlDoc.documentElement.selectSingleNode('/PlanView/termin[terminid="'+IntToStr(id)+'"]');
        node.selectSingleNode('terminid').text:=IntToStr(id);
      end;
      status_03.Caption:='Der Termin wurde erfolgreich gelöscht!';
      Timer1.Enabled:=true;
      frm_terminplaner.UpdateList;
    end;
    xmlDoc.save(frm_terminplaner.instpath + xmlfilename);
    frm_terminplaner.UpdateList;
    Label2.Caption:='erfasste Termine ('+IntToStr(lv_eintraege.Items.Count)+')';
end;

[EDIT] Hier springt er immer in ne Zugriffsverletzung, weiß aber nicht warum??
node.selectSingleNode('terminid').text:=IntToStr(id); Gruß,