MagistrTot, логика схемы несколько странная. Я бы делал так:
code_24019.txt

а потом читал всё время 1ю строку StrList-а и удалял её.
[offtop] Жаль, мой компонент StackEx (очередь) не попал в пакет... [/offtop]