Функции сохранения OutList в Ini-файл

[Air]

Возможно я сделал велосипед. Но у меня привычка всё объединять в функции и процедуры...
Но, всё же оцените.
Описание.
Многим известен компонент TOutline и его прекрасное свойства

SaveToFile();
LoadFromFile();

Но у меня возникла проблема сохранения данных в формат Ini-файла.
Напомню про ini-файл.

[Set] // секция
X=12 // параметр "=" значение

TOutline

"Слово"
<тут табуляция>"ещё слово"

табуляция или #9

Однако я написал пару функций для TOutline, точнее для сохранения его данных в формате Ini-файла.

Function EnCodeOutList(Outline:TOutline):String;
var s,Text:string; i:integer; Entr:boolean;
begin
Text:=Outline.Lines.Text;
for i:=1 to strlen(pchar(Text)) do
 begin
  if Text[i] <> #9 then
   begin
    if Text[i] = #$A then continue;
    if Text[i] = #$D then
     if Text[i+1] = #$A then
      begin
       s:=s+#2;
       continue;
      end;
    s:=s+Text[i];
    Entr:=true;
   end
  else
   begin
    if Entr then s:=s+#1;
    s:=s+#9;
    Entr:=false;
   end;
 end;
Result:=s;
end;

Function DeCodeOutList(Text:String):String;
var s:string; i:integer; Entr:boolean;
begin
Entr:=false;
for i:=1 to strlen(pchar(Text)) do
 begin
  if Text[i] <> #9 then
   begin
    if Text[i] = #2 then
     begin
      s:=s+#13;
      continue;
     end;
     if Text[i] = #1 then
      begin
       s:=s+#10;
       continue;
      end;
    s:=s+Text[i];
    Entr:=true;
   end
  else
   begin
    s:=s+#9;
    Entr:=false;
   end;
 end;
Result:=s;
end;

Это сами функции
В архиве готовый тест-проект этих функций и ещё пара для Ini-файлов.

На моём компе всё работает, протестируйте пожалуйста, чтоб быть уверенным в их готовности.

Благодарю за внимание.