Не господа, не работает адская машина

code_1674.txt
Вот посмотрите.
Мои действия:
1. Создаю обычный тхт файл и переименовываю его на *.ххх
2. Создаю обычный doc файл и переименовываю его на *.xxx
3. Запускаю программу и она ругается что удалить нельзя, файл занят.
но на самом деле не занят.
Если в место компонента FileTools поставить DirTools, то получается тоже самое
Но если подставить message, то мы отчетливо видим что значение больше 0
т.е. файл не занят и не используется