Вот и я в растеряности, цикл не повторяется, только одно переименовывание и всё А chosendirectory я беру из неадекватной функции
Код:
if SelectDirectory('Выберите каталог', 'e:\', chosenDirectory)
then ...
другой не нашёл, что бы путь к директории получать, вот щас помотрю твой
ExtractFilePath(...)