[Guaho]

Заряжаете цикл на длину большой строки. Внутри цикла делаете счётчик символов для "коротких" строк. Счётчик переполнился - заново инициализируете его, а полученную строку сбрасываете, например, в Memo.