Можно сохранить это значение в файл.
Запись в файл при закрытии программы
Код:
Var f:textfile;
begin
AssignFile(f,'название_файла.txt')
ReWrite(f) //Если файл не создан, то создадим его.
Writeln(f,j); //записываем наше значение
CloseFile(f); //отрубаемся от файла
Ну а когда запускаешь программу, то читай из файла значение:
Код:
Var f:textfile;
s:shortstring;
begin
AssignFile(f,'название_файла.txt')
Reset(f) //Открываем файл для чтения
Readln(f,s); //Считываем значение
j:=strtoint(s); //присваеваем j считанное значение.
CloseFile(f); //отрубаемся.