Форма логина работает неправильно

procedure TForm8.Button1Click(Sender: TObject);
var
pop:integer;
 
begin
pop:=strtoint(statusbar1.Panels[1].text);  //Задаем количество попыток
Adoquery1.Active:=false;
ADOquery1.sql.Clear;  //Чистим предыдущий запрос
ADOQuery1.SQL.ADD('SELECT * FROM user WHERE login = :p_login AND pass = :p_passw');  //Создаем запрос
if ((Edit1.Text <> '') and ((Edit2.Text) <> ''))
  then
  begin
    ADOQuery1.Parameters.ParamByName('p_login').Value := Edit1.Text;
    ADOQuery1.Parameters.ParamByName('p_passw').Value := Edit2.Text;
    try
      ADOQuery1.Active:=true;  //Пробуем активировать запрос
    Except
      ShowMessage('Не удалось открыть таблицу пользователей');
      Exit;
    end;
    if (ADOQuery1.RecordCount > 0) and ('prava'='admin') //Если заходим под админом
    then
    begin
      ShowMessage('Вход успешно выполнен, добро пожаловать, админ');
      Form2.Visible := False;
      Form1.Visible := True;  //Открываем главную форму
      form1.Button5.Enabled:=true;
      form1.Button5.visible:=true;
      adotable1.append;
      adotable1.fieldbyname('login').Value:=edit1.text; //Вносим в журнал аудита данные 
      adotable1.fieldbyname('time').value:=DateTimePicker1.DateTime;
      adotable1.fieldbyname('sobitie').Value:='Выполнен вход в систему(администратор)';
      adotable1.Refresh;
    end
    else
  if  (ADOQuery1.RecordCount > 0)  //Если зашли под юзером
  then
   begin
     ShowMessage('Вход выполнен успешно');
      Form2.Visible := False;
      Form1.Visible := True; //Открываем главную форму
      form1.Button5.Enabled:=false;
      form1.Button5.visible:=false;
       adotable1.append;
      adotable1.fieldbyname('login').Value:=edit1.text; //Вносим в журнал аудита данные 
     adotable1.fieldbyname('time').value:=DateTimePicker1.DateTime;
     adotable1.fieldbyname('sobitie').Value:='Выполнен вход в систему(пользователь)';
      adotable1.Refresh;
      end
      else
    begin
      ShowMessage('Неправильные логин или пароль'); 
                                                      //Если данные неверны очищаем поля и уменьшаем количество попыток
      Form8.Edit1.Text := '';
      Form8.Edit2.Text := '';
      pop:=pop-1;
    statusbar1.Panels[1].Text:=IntToStr(pop);
    if pop=0  then begin
ShowMessage('Превышено количество попыток входа!'+#13#10+'Приложение будет закрыто'); 
 adotable1.append;
      adotable1.fieldbyname('login').Value:=edit1.text;
     adotable1.fieldbyname('time').value:=DateTimePicker1.DateTime;
      adotable1.Refresh;
      Application.Terminate;
end;
    end;
  end
  else    begin
    ShowMessage('Пустые поля логина или пароля недопустимы');
    pop:=pop-1;
    statusbar1.Panels[1].Text:=IntToStr(pop);
    if pop=0  then begin
ShowMessage('Превышено количество попыток входа!'+#13#10+'Приложение будет закрыто');   
 adotable1.append;
      adotable1.fieldbyname('login').Value:=edit1.text;
      adotable1.fieldbyname('time').value:=DateTimePicker1.DateTime;
      adotable1.Refresh;
      Application.Terminate;
end;
end;
end;
 
procedure TForm8.FormCreate(Sender: TObject);
begin
DateTimePicker1.Format := 'dd.mm.yyyy hh:nn:ss';
DateTimePicker1.time:= now();
DateTimePicker1.date:= now();
end;

   if (ADOQuery1.RecordCount > 0) and (adoquery1.FieldByName('prava').Value='admin')

if ((Trim(Edit1.Text) = '') and ((Trim(Edit2.Text) = '')) then Showmessage('Логин и\или пароль пусты'); exit; end

function Log(s:string);