Нужно удалить несколько строк из TStringList

[garuna]

Есть TStringList со списком строк. Нужно найти все строки 'somestring' и удалить их.
понятное дело, что код типа:

for i:=0 to SL.Count-1 do
if SL.Strings[i] = 'somestring'
then SL.Delete(i);

выдаст исключение List index out of bounds ().
Так как же тогда это сделать?

[Аватар]

Цикл с конца

[Stilet]

Нужно найти все строки 'somestring' и удалить их.

With StringListТвой do begin
 Text:=StringReplace(Text,'somestring'#13#10,'',[RfReplaceAll]);
end;