[lmikle]

Как я понимаю, у тебя "ширина" указана в символах.
Тогда надо по 5 шт исходных строк слить в одну и зусунуть ее во второе мемо.

Код:

var
  I, C : Integer;
  S : String;
begin
  C := 0;
  S := '';
  For I := 0 To  Memo1.Lines.Count-1 Do
    Begin
      S := S + Memo1.Lines[i];
      Inc(C);
      If C = 5 Then
         Begin
            Memo2.Lines.Add(S);
            C := 0;
            S := '';
         End;
    End;
  If S <> '' Then Memo2.Lines.Add(S);
end;

А вообще-то, граждане, вы совсем обленились.
Мог бы и сам подумать - не такой и сложный алгоритм.