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

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


Комментарий