[roman]

En estos casos, debes recorrer la lista alrevés:

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

Edito

También puedes intentar poniendo simplemente

Código Delphi [-]
Cod.Clear;

en lugar del ciclo.

// Saludos