[Alegun]

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

Код:

...
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;
...

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