Áno, zmazaním riadku sa Ti zakaždým mení index...
Prechádzaj od konca na začiatok, nie od začiatku po koniec ako to robíš Ty...
for i := TS.Count - 1 downto 0 do
begin
...
Áno, zmazaním riadku sa Ti zakaždým mení index...
Prechádzaj od konca na začiatok, nie od začiatku po koniec ako to robíš Ty...
for i := TS.Count - 1 downto 0 do
begin
...