[U.B.M.]

через ini-файл, как вариант.

Код:

uses
  ..., IniFiles;

var
  _ini: TIniFile;
begin
  _ini := TIniFile.Create(...);
  _ini.WriteInteger(...);
  ...
  ini.free;
end;