[san-46]

Код:

uses
  IniFiles;
//сохранение строкового значения в ini-файле
procedure SavePSW(FileName, PSW : string);
var IniF : TIniFile;
begin
  IniF := TIniFile.Create(FileName); //c расширением .ini
  try
    IniF.WriteString('PSW', 'PSW', PSW); //имя секции и имя ключа может совпадать
  finally
    IniF.Free;
  end;
end;
//считывание значения из ini-файла
function LoadPSW(FileName : string) : string;
var IniF : TIniFile;
begin
  Result := '';
  IniF := TIniFile.Create(FileName); //c расширением .ini
  try
    Result := IniF.ReadString('PSW', 'PSW', '');
  finally
    IniF.Free;
  end;
end;

При закрытии формы, где происходит смена пароля и, если пароль правильный, то вызывается процедура SavePSW.
При запуске программы вызывается функция LoadPSW, если она возращает пустое значение, значит ini файла нет и надо применять "зашитый" пароль.