Konsolenanwendung: Stringlist error

[cherry]

Mein Code:

Delphi-Quellcode:

for i := 0 to supi.Count - 1 do
      begin
        if (supi.ValueFromIndex[i] = paramStr(4)) then
        begin
          eFound := True;
          supi.Delete(i-1);
          supi.Delete(i-1);
          supi.Delete(i-1);
          supi.Delete(i-1);
          supi.SaveToFile(paramStr(2));
        end;
      end;

Der Fehler:

Q:\>Q:\DATEN\Projekte\delupientry\delupientry -f C:\upm.his -e hideext.upi
Exception EStringListError in Modul delupientry.exe bei 00011CF5.
Listenindex überschreitet das Maximum (52).

Das Problem:

Der Fehler erscheint aber das Programm funktioniert ansonsten genau so wie ich das will...
Es soll mir aus einer Textdatei 4 Zeilen löschen... Es werden genau die Vier Zeilen gelöscht die ich will, alles funktioniert so wies soll.. aber woher der Fehler???

Wenn ich die vier "supi.Delete(i-1);" weglasse kommt der Fehler nicht... - Dann werden aber auch die gewünschten Zeilen nicht gelöscht...

Jmd eine Idee was ich schon wieder nicht korrekt mache?