Zdar.
Mam text soubor, který načtu do StringListu.
Potřebují ho projit po řadcich a odstranít všechny řadky, ktere obsahují určite slovo. Třeba ahoj.

Toto funguje

for i  := 0 to TS.Count-1 do
  begin
    s:= TS.Strings[i];
    IF pos('ahoj',s) <> 0 then  showmessage('je to tam');                             
  end;                               

Toto už ne.

for i  := 0 to TS.Count-1 do
  begin
    s:= TS.Strings[i];
    IF pos('Připojeno',s) <> 0 then TS.Delete(i);                                
  end;              

Vyhodi to chybu List index (268) out of bounds.
Asi tušim čim to je, pokažde, když smažu řadek, tak se sniži TS.Count

Jak na to?
Děkují.