А может не стоит сдаваться. Ведь все очень просто.
Надо объявить глобальную переменную вот таким образом:
Код:
var
StrPsw : String = 'gaz';
//при запуске программы вызывать функцию LoadPSW
S := LoadPSW(FileName); //S - локальная переменная (временная)
if S <> '' then
StrPsw := S;
//а пароль проверять подставляя эту переменную, а не константу 'gaz'.
procedure TPSWfrm.Edit1Change(Sender: TObject);
begin
if (Edit1.Text = StrPsw) then
Edit2.Enabled := true;
Кстати, TIniFile находится в модуле IniFiles, который и надо указать в секции
uses.