TStrings и посимвольное добавление текста

[soleil@mmc]

Собственно трабла в том, что при посимвольном добавлении каждый символ добавляется как отдельная строчка (т.е. на выходе получаем нечитабельное файло). А нужно, чтобы строка конкатенировалась (посимвольно добавятся и символы перевода строк).
Может я какое свойство не выставил?

Код выглядит так:

Type
  TDynArr = Array Of char;
....

var
  pMsg: TDynArr; //массив заполнен символами
.......

Var
   l_TmpMsg: TStrings;   
begin
  l_TmpMsg:=TStringList.Create;
  try
    If High(pMsg) > -1 Then Begin
      For i:=0 To High(pMsg) Do
        l_TmpMsg.Text:=l_TmpMsg.Text+pMsg[i];
      l_TmpMsg.SaveToFile(pFilename);
    end;
  finally
    l_TmpMsg.Free;
  end;
end;

[Скандербег]

Var
   l_TmpMsg: TStrings;
  S : string;
begin
  l_TmpMsg:=TStringList.Create;
  try
    If High(pMsg) > -1 Then Begin
      S := '';
      For i:=0 To High(pMsg) Do
        S := S + pMsg[i];
      l_TmpMsg.Text := S;
      l_TmpMsg.SaveToFile(pFilename);
    end;
  finally
    l_TmpMsg.Free;
  end;

[soleil@mmc]

спасибо
почему-то думал, что не пройдет по длине динамический массив