elemente suchen und aus xml datei löschen

[CVi]

Hallo,
ich habe folgendes xml beispiel:

<?xml version="1.0" encoding="Windows-1252"?>
<Messages>
<Message>
<Auftrag>4046714000000</Auftrag>
<Kundennummer>4260438010002</Kundennummer>
<Artikel>
<POS>1</POS>
<Artikelnummer>4711</Artikelnummer>
<Artikelbeschreibung>Beispielartikel 1</Artikelbeschreibung>
<Menge>2.00</Menge>
<Einzelpreis>100.00</Einzelpreis>
<Rabatt>
<Rabattprozent>10</Rabattprozent>
<Rabattsumme>10.00</Rabattsumme>
</Rabatt>
</Artikel>
<Artikel>
<POS>2</POS>
<Artikelnummer>4712</Artikelnummer>
<Artikelbeschreibung>Beispielartikel 2</Artikelbeschreibung>
<Menge>1.00</Menge>
<Einzelpreis>0.00</Einzelpreis>
<Rabatt>
<Rabattprozent>0</Rabattprozent>
<Rabattsumme>0.00</Rabattsumme>
</Rabatt>
</Artikel>
<Artikel>
<POS>3</POS>
<Artikelnummer>4713</Artikelnummer>
<Artikelbeschreibung>Beispielartikel 3</Artikelbeschreibung>
<Menge>1.00</Menge>
<Einzelpreis>100.00</Einzelpreis>
<Rabatt>
<Rabattprozent>10</Rabattprozent>
<Rabattsumme>10.00</Rabattsumme>
</Rabatt>
</Artikel>
<Artikel>
<POS>4</POS>
<Artikelnummer>4714</Artikelnummer>
<Artikelbeschreibung>Beispielartikel 4</Artikelbeschreibung>
<Menge>1.00</Menge>
<Einzelpreis>0.00</Einzelpreis>
<Rabatt>
<Rabattprozent>00</Rabattprozent>
<Rabattsumme>0.00</Rabattsumme>
</Rabatt>
</Artikel>
</Message>
</Messages>




aus diesem Beispiel müssen alle Artikel deren Einzelpreis = 0.00 ist entfernt werden.

dazu habe ich folgenden code begonnen, weiss aber nicht wie ich nodes/elemente löschen kann bevor
ich die xml neu schreibe.
Vielleicht kann mir hier jemand helfen.

Vielen Dank im voraus.


(Delphi7)
procedure TMainFormular.Button1Click(Sender: TObject);
var
Doc: IXMLDocument;
i: Integer;

begin
Doc := LoadXMLDocument('test.XML');
Doc.Active := True;


code zum löschen von inhalten elementen?....


Doc.SaveToFile('test.XML');
end;