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

[Air]

Выкладываю наработки, вдруг ещё у кого-то будут проблемы.
Больше ориентировано на TListBox.

Function EnCodeStringList(SList:TListBox):String;
var s,Text:string; i:integer;
begin
Text:=SList.Items.Text;
for i:=1 to strlen(pchar(Text)) do
 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];
 end;
Result:=s;
end;

Function DeCodeStringList(Text:String):TStringList;
var s:string; i:integer;
begin
Result:=TStringList.Create;
for i:=1 to strlen(pchar(Text)) do
 begin
  if Text[i] = #2 then
   begin
    s:=s+#13;
    continue;
   end;
  s:=s+Text[i];
 end;
result.Text:=s;
end;

И ни слова про "велосипед", я и так знаю....