[Alegun]

Тогда нужно заменить блок цикла на

Код:

1 2 3 4 5 6 7 8 9 10 11

... for b:= Length(d) downto 1 do           if d[b] = ' ' then            begin             lit.SubItems.Add(Copy(d, 1, b-1));             lit.SubItems.Add(Copy(d, b+1, Length(d)));             lit.SubItems.Add(Copy(txtAll[i+2],46,Length(txtAll[i])));             lit.SubItems.Add(Copy(txtAll[i+3],30,Length(txtAll[i])));             break;            end; ...

З.Ы. Ой, про "это я уже исправил" не заметил :-)