Я имею в виду, что при каждом включении происходит принудительная запись, а память имеет ограниченное число циклов перезаписи.
В Ваш код добавил строку
После включения счетчик показывает 1.

В Ваш код добавил строку
Код:
(* ==== Вызов блока для работы с retain переменными ==== *)
RetainFB(destination := EnStorageDevice.DevSysFS);
CountR := RetainFB.AttemptSaveCounter;

Комментарий