Проблема с StringReplace

[cutter47]

Здравствуйте уважаемые, столкнулся с такой проблемой:
Есть некая программа, в ней в TStringList записываются строки из файла

SL0.LoadFromFile('data.txt');

Есть некие циклы, в которых происходит двойных пробелов на одиночные и а также двоеточие без пробела на двоеточие с пробелом, так же замена пробелов у Items внутри TStringList'a - меняю их на #13#10

For i:=0 to SL0.Count-1 do SL0.Strings[i]:=StringReplace(SL0.Strings[i],':',': ',[rfReplaceAll]);
For i:=0 to SL0.Count-1 do SL1.Add(SL0.Strings[i]);

For i:=0 to SL1.Count-1 do SL1.Strings[i]:=StringReplace(SL1.Strings[i],'  ',' ',[rfReplaceAll]);
For i:=0 to SL1.Count-1 do SL2.Add(SL1.Strings[i]);

For i:=0 to SL2.Count-1 do SL2.Strings[i]:=StringReplace(SL2.Strings[i],' ',#13#10,[rfReplaceAll]);
For i:=0 to SL2.Count-1 do SL3.Add(SL2.Strings[i]);

For i:=0 to SL3.Count-1 do SL4.Add(SL3.Strings[i]);

если выводить потом в Мемо,

For i:=0 to SL4.Count-1 do Form1.Memo1.Lines.Add(SL4.Strings[i]);

то все красиво и правильно, а если обращаться к Item'у из самого TStringList'a,
например так:

  ShowMessage(SL4[7]); // выводим 7-й Item из 4-го TStringList'a

получается такое - https://prnt.sc/xwefbd
печатает в две строки. Как сделать чтобы при замене внутри Items у TStringList'a пробелов на перенос каретки (#13#10) создавался новый Item ?

Спасибо за внимание.
Всем ответившим буду очень благодарен.

[evg_m]

работать (делать замены) не в каждой строчке (Item) а сразу ВЕСЬ текст.

sl.LoadFromFile(...);
s:=sl.Text;
s:=StringReplace(s,..., [rfReplaceAll]);
s:=StringReplace(s,..., [rfReplaceAll]);
sl.Text:=s;

sl.Text:=s;
sl1.Text:=s;

[cutter47]

Приветствую, в том то и дело что замена в тексте оччень-очень долгая на больших файлах ТХТ, пробовал с помошью нее до похода сюда. Толь что решил этот вопрос сам, всем большое спасибо, кто пытался помочь.