Problemas para borrar una cadena de un Tstrings

[drykea]

Hola a todo el mundo.

Pues eso, tengo un problema para borrar una cadena en concreto dentro de un tstrings.
Lo que hago es:


Código Delphi [-]
for I := 0 to Cod.Count-1 do
begin
...
Cod.Delete(I);
...
end;





El problema es que me da 'List index of bounds'. Da igual el valor que tenga I.
¿Alguien sabe lo que estoy haciendo mal?
¿Hay otra manera de hacerlo?

Muchas gracias por su ayuda