Программа разграничения доступа пользователей на основе парольной аутентификации

procedure TForm1.Button1Click(Sender: TObject);
 
begin
  if Length(Trim(Edit1.Text)) = 0 then
  begin
    MessageDlg('Вы не ввели имя.',mtError,[mbOk],0);
    Exit
  end;
  if Length(Trim(Edit2.Text)) = 0 then
  begin
    MessageDlg('Вы не ввели пароль.',mtError,[mbOk],0);
    Exit
  end;
 
 
begin
assignfile(f, 'login&password.txt'); // читаем пароль из файла:
reset(f);
while not Eof(f) do
   begin
     ReadLn(f, password);
   end;
if edit2.Text=password then tr:=true else begin // проверяем верный или нет пароль%
tr:=false;
nop:=nop+1; // inc(nop);
end;
case nop of // считаем и выводим пользователю кол-во неверн. введенных раз:
1: label4.Caption:='Вы ввели неверный пароль уже 1 раз';
2: label4.Caption:='Вы ввели неверный пароль уже 2-ой раз';
3: begin // если ввел 3 раза, то давай, досвидания:
     label4.Caption:='Вы заблокированы';
            showmessage('До свидания');
     close;
   end;
end;
          if tr=true then begin
           end;
           end; }
 
  login:=Edit1.Text;
  password:=Edit2.Text;
  para:=login+'!'+password;
 
  AssignFile(f,'login&password.txt');
  reset(f);
  while not eof(f) do begin
   readln(f,buf);
   if (buf=para) then begin
    form5.show
 end;
   form1.Hide
  end;
 
 
closefile(f);
end;
end.

{login:=Edit1.Text;
  password:=Edit2.Text;
  para:=login+'!'+password;
assignfile(f, 'login&password.txt'); // читаем пароль из файла:
reset(f);
while not Eof(f) do
   begin
     ReadLn(f, password);
   end;
if edit2.Text=password then tr:=true else begin // проверяем верный или нет пароль%
tr:=false;
nop:=nop+1; // inc(nop);
end;
case nop of // считаем и выводим пользователю кол-во неверн. введенных раз:
1: label4.Caption:='Вы ввели неверный пароль уже 1 раз';
2: label4.Caption:='Вы ввели неверный пароль уже 2-ой раз';
3: begin // если ввел 3 раза, то давай, досвидания:
     label4.Caption:='Вы заблокированы';
            showmessage('До свидания');
     close;
   end;
end;
          if tr=true then begin
  AssignFile(f,'login&password.txt');
  reset(f);
  while not eof(f) do begin
   readln(f,buf);
   if (buf=para) then begin
    form5.show
 
   end;
   form1.Hide
  end;          }