Разбить строку на 500 символов

[Lardes]

Друзья! Есть строка, которая содержит N-ое кол-во символов (порядка 5000 символов). Необходимо разбить ее на 500 символов и каждую строчку вывести в Memo. Прошу вашей помощи.

[Somebody]

Как можно разбить 5000 символов на 500 символов???

[Stilet]

Как-то так:

i:=1; while i<5000 do begin
 Memo.Limes.Add(copy(s,i,500)); inc(i,500);
end;

Как можно разбить 5000 символов на 500 символов???

Имелось ввиду на строки по 500 символов.

[Lardes]

Stilet благодарю!))