Данный способ неправильно удаляет файлы, прошу прощения.
Чего делать не знаю. (Две недели уже парюсь)
В общем ситуация такая.
1. Есть каталог в нем каждый день появляются новые архивы *.rar
2. Есть setup.ini с параметром ACTUAL_BD_DAY = 3
3. Каждый день необходимо выполнять функцию удаления старых архивов оставляя архивы за последни 3 дня. (как указанно в ACTUAL_BD_DAY = 3)
Как вариант решение вижу в том чтобы из текущей даты вычесть 3 дня потом пройтись по каталогу с архивами и удалить все архивы чья дата меньше текущей даты - 3 дня.
Если есть знающие люди подскажите пожалуйста код.
Скорее всего тут я делаю чегото неправильно if GetFileDate(Path + '\' + sRec.Name) < DateToStr(Now - StrToInt(IniFiles.ReadString('SETUP', 'ACTUAL_BD_DAY', '6'))) then
Уровень знаний не позволяет решить проблему самостоятельно. Прошу помощи!!!