Скрипты Simple-Scada

Задача: сохранить значение целочисленной переменной в файл, а потом считать его обратно в переменную. Перед записью значения его необходимо перевести в строку. Скрипт для записи в файл:

begin
  TextFileOpen('MyTextFile.txt', '', fomRewrite, fcpUTF8); // создаем и открываем файл
  TextFileWriteLn(IntToStr(vrWrite.OriginalAsInt));        // записываем значение переведенное в строку
  TextFileClose;                                           // закрываем файл
end.

Скрипт для чтения из текстового файла назад в переменную . Здесь действия идут в обратном порядке. Сначала читаем из файла строку, затем переводим в целое число и сохраняем в переменную:

var
  aReadStr: string;
begin
  // прерываем скрипт если файл не существует
  if not FileExists('MyTextFile.txt', '') then
    Exit;
 
  TextFileOpen('MyTextFile.txt', '', fomReset, fcpUTF8); // открываем файл для чтения
  aReadStr := TextFileReadLn;                            // читаем строку из файла
  vrWrite.Value := StrToInt(aReadStr);                   // переводим строку в целое число и сохраняем в переменную
  TextFileClose;                                         // закрываем файл
end.