[Kailon]

А вот так разве не проще?

Код:

procedure TForm2.Button1Click(Sender: TObject);
var
  SavePwd: TStringList;
  LogPwd:string;
begin
  SavePwd := TStringList.Create;
  SavePwd.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Пароль.txt');
  LogPwd := Edit1.Text;
  if LogPwd = SavePwd[0] then
    begin
      //обрабатываем правельный пароль
      ShowMessage('Пароль верный!');
    end
  else
    begin
      //обрабатываем НЕправельный пароль
      ShowMessage('Пароль НЕверный!');
    end;
end;

P.S.: и кто Вас учил манере оформления кода?