Node löschen

[Tigermoon]

Hallo

ich tu mir etwas schwer
ich möchte eine node mit ihren unternodes löschen
sind immer gefüllt

Delphi-Quellcode:

procedure TFWunsch.ILoeschen1Click(Sender: TObject);
var
auswahl: string;
i:integer;
begin
  Wunsch.FWunsch.LBKonst.ClearSelection;
  auswahl := Wunsch.FWunsch.LBWunschSpiele.Items.Strings[Wunsch.fWunsch.LBWunschSpiele.ItemIndex];
  Wunsch.FWunsch.Lauswahl.Caption := auswahl;

  XML_File := newXMLDocument;
  XML_File.LoadFromFile('Badminton.xml');

  for I := 0 to XML_File.ChildNodes['BADMINTON'].ChildNodes['WUNSCHSPIELE'].ChildNodes.Count - 1 do
  begin
      if(XML_File.ChildNodes['BADMINTON'].ChildNodes['WUNSCHSPIELE'].ChildNodes[i].ChildNodes['NAME'].Text = auswahl)
      then begin
          //// hier
      end;
  end;

end;

ich habe euch schon einige versuche gemacht
awa irgendwie klappt das ned
wo //// hier steht soll der knoten [i] gelöscht werden

danke stephie