Как заставить TStringlist отобразить данные?

[ЛеньПридумыватьНик]

Здравствуйте!
Столкнулся с проблемой корректного вывода данных TStringList'ом
Суть проги:
Есть один Edit, два RichEdit'a, кнопка, при нажатии на которую получаем коды символов первого RichEdit'a и заносим их во второй
Вот сам код:

var c, s: TStringList;
   l: string;  // Сюда мы запишем данные из c.TStringlist;
     o, ci, cj: integer;
     // o будет возвращать код символа, ci, cj - счетчики для
     //первого TStringList'a.
   x: char;
begin
//Инициализируем переменные
 c:=TStringList.Create;
  s:=TStringList.Create;
  //Загружаем в первый TSringlist данные из RichEdit1
c.AddStrings(RichEdit1.Lines);
  //Получаем доступ к строкам TSringlst.
  //Данные заносим в переменную l, над которой будем работать
   for ci:=1 to c.Count - 1 do begin
     l:=c.Strings[ci];
     // Здесь мы получаем код каждого символа каждой строки TStringList
     //Резульат заносим в s.TStringLisr
       for cj:=1 to length(l) do begin
         x:=l[cj];
       o:=ord(x);
      s.Add(IntToStr(o) + ' ');
     RichEdit2.Lines.AddStrings(s);
  end;
 end;

Допустим, в первом RichEdit'e есть строки:

фыва
олдж

Необходимо в второй RichEdit вывести:

244 251 226 224
238 235 228 230


А получается белиберда типа:

244
244
251
244
251
226
244
251
226
224
244
251
226
224
238
244
251
226
224
238
235
244
251
226
224
238
235
228
244
251
226
224
238
235
228
230

Как заставить StringList отображать данные корректно? Есть ли альтернатива s.Add(IntToStr(o) + ' ');?

[Volt]

Может лучше без StringList. Да и StringList отображает корректно что вы написали то он и отображает

var i, j:integer;    s:string;
begin
for i:=0 to RichEdit1.Lines.Count do
for j:=1 to Length(RichEdit1.Lines.Strings[i]) do
s:=s+' '+inttostr(ord(RichEdit1.Lines.Strings[i][j]));

RichEdit2.Text:=s;

[ЛеньПридумыватьНик]

Спасибо, теперь работает корректно