Тогда нужно заменить блок цикла на
Код:
...
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;
...
З.Ы. Ой, про "это я уже исправил" не заметил :-)