TStringlist ab bestimmter Stelle abschneiden

[Overburn]

Moin,

eigentlich ein simples Problem:
Ich lese eine XML-Datei in eine Stingliste. Dann möchte ich alle Zeile ab einem bestimmten Wort löschen. Wie löse ich das am besten?

Delphi-Quellcode:

  i := 0;
  while i < l2.Count do begin
    if l2[i] = '</Groups>' then delete := true;

    if delete = true then l2.Delete(i);
    i := i + 1;
  end;

Ich habe es mit oben genanntem Code probiert, allerdings weise ich danach den Inhalt zur visuellen Kontrolle einem Memo zu und dort ist wieder der gesamte Inhalt, außer dem "</Groups>".

Ich find meinen Denkfehler leider nicht... :(

Gru,
Stefan