Było For I := 0 to Spis.Count do , powrawiłem na For I := 0 to Spis.Count-1 do
Usunalem naglowek AnsiContainsStr. To nie ma nic wspolnego z TStringList