[lmikle]

Для начала, я думаю ты "наступаешь" на переводы строк. Их надо вырезать до начала раздела строки, иначе они тебе весь вывод поломают.

Код:

const
  wLen : Integer = 5; // сколько символов за раз вырезать
var
  Src : String;
  Idx : Integer;
begin
  Src := '...'; // исходная строка
  Src := StringReplace(Src, #13, '',[rfReplaceAll]);
  Src := StringReplace(Src, #10, '',[rfReplaceAll]);
  Idx := 1;
  While Idx < Length(Src) Do
    Begin
      Memo1.Lines.Add(Copy(Src,Idx,wLen));
      Inc(Idx,wLen);
    End;
End;

Ну вот как-то так, должно работать.