TStringList замена переносов строки запятыми

procedure TForm1.Button1Click(Sender: TObject);
var
  st:TStringList;
begin
  st:=TStringList.Create;
  try 
    st.Add('1');
    st.Add('2');
    st.Add('3');
    st.Add('4');
    st.Add('5');
    st.Delimiter:=',';
    Memo1.Text:=st.DelimitedText; //результат 1,2,3,4,5
  finally
    st.Free;
  end;
end;

Хотя можно было использовать StringReplace, но если есть это в классе то зачем))
Обратная задача

procedure TForm1.Button1Click(Sender: TObject);
var
  st:TStringList;
  i:integer;
begin

  st:=TStringList.Create;
  try
      st.Delimiter:=',';
      st.DelimitedText:= Memo1.Text;//текст разделенный запятыми

     //теперь можно обращаться по индексу
     for i := 0 to sTemp.Count - 1 do
     begin
        //переменная string:=st.string[i];

     end;
     //или
     Memo1.Lines:=st;
  finally
    st.Free;
  end;
end;