Да ладно, ради одной переменной целый класс зайдействовать. Это уже перебор.
Запись:
Код:
Var
f: file of TTime;
begin
AssignFile(f, 'MySettings.dat');
Rewrite(f);
Write(Sec);
CloseFile(f);
end.
Чтение:
Код:
Var
f: file of TTime;
Sec: TTime;
begin
AssignFile(f, 'MySettings.dat');
Reset(f);
Read(Sec);
CloseFile(f);
end.