TStringlist: Delete in einer Schleife

[Go2EITS]

Hallo DP,

sicherlich könnt Ihr mir wieder weiterhelfen:
Ich "hänge" an einem Problem:

Ich habe eine Schleife die von 1 to t.count läuft:

Delphi-Quellcode:

//T ist t:Stringlist //
for i=1 to t.count do 
    begin
    if t[i]:=Suchstring then t.delete[i]
    end;

Da sich t.count in der Schleife verringert, bekomme ich natürlich einen Bereichsfehler.
Hat da jemand eine Ahnung, wie ich dies umgehen kann?

Vielen Dank für die Mühe im voraus.
Go2EITS