[Vladimr]

Код:

const dl=5; //длина передаваемой строки за раз

while length(text)>dl do
begin
s1:=copy(text,1,dl); //считывание символов
memo1.lines.add(s1); //вывод символов
delete(text,1,dl); //удаление
end;

memo1.lines.add(text); //вывод оставшихся символов