Выдает ошибку в коде!

var
 
Login:string;
  Dostup:boolean;
begin
If (DBLookupComboBox1.Text<>'') and (Edit1.Text<>'') then
 begin
AdoQuery1.Active:=false;
AdoQuery1.Parameters.ParamByName('log').Value:=DBLookupComboBox1.Text;
AdoQuery1.Active:=true;
   If AdoQuery1.RecordCount<>0 then
     begin
      If AdoQuery1.FieldByName('Пароль').AsString=Edit1.Text then
      begin
         login:=LowerCase(Edit1.Text);
         Form1.Show;
         Form21.Hide;
                            If login='Администратор' then
                 begin
                 Form1.Show;
                 Form21.Hide;
                 end;
         end
         else
         ShowMessage('Проверьте пароль!!!');
              If AdoQuery1.FieldByName('Доступ').AsString='False' then Dostup:=true
           else Dostup:=false;
 
if Dostup=false then
begin
Form1.Enabled:=false;
end
else
begin
Form8.Enabled:=true;
 
end
     end
          else Showmessage('Проверьте введенные данные!!!!');
 end
    else ShowMessage('Введите имя пользователя и пароль!');
 
 end;
 end.

procedure TForm21.Button1Click(Sender: TObject);
var
  log: String;
begin
  log := DBLookupComboBox1.Text;
  with AdoQuery1, Parameters do
  if FieldValues['Логин'] = 'Администратор' then
showmessage('Вход в систему Выполнен.');
Form21.Hide;
Form1.Show;
if FieldValues['Логин']='Сотрудник' then
showmessage('Вход в систему Выполнен.');
Form21.Hide;
Form8.Show;
  begin
    SQL.Text:='SELECT * FROM Авторизация  WHERE ( Логин= :логин) and (Пароль = :пароль)';
    ParamByName('логин').Value := log;
    ParamByName('пароль').Value := Edit1.Text;
    Open;
    if RecordCount > 0 then
    begin
      if FieldValues['Логин'] = '' then
             else
        showmessage('Вход в систему Выполнен.');
             Form21.Hide;
      Form1.Show;
    end else
    begin
      SQL.Text:='SELECT * FROM Авторизация';
      Open;
      Edit1.Clear;
      showmessage('Веден неверный пароль!!!');
    end;
  end;     end;
end.

procedure TForm21.Button1Click(Sender: TObject);
var
  log: String;
begin
  log := DBLookupComboBox1.Text;
  with AdoQuery1, Parameters do
  begin
    SQL.Text:='SELECT * FROM Авторизация  WHERE ( Логин= :логин) and (Пароль = :пароль)';
    ParamByName('логин').Value := log;
    ParamByName('пароль').Value := Edit1.Text;
    Open;
    if RecordCount > 0 then
    begin
      if FieldValues['Логин'] = 'Админ' then
            showmessage('Вход в систему Выполнен.');
             Form21.Hide;
      Form1.Show;
      if FieldValues['Логин']='User' then
        showmessage('Вход в систему Выполнен.');
             Form21.Hide;
      Form8.Show;
    end else
    begin
      SQL.Text:='SELECT * FROM Авторизация';
      Open;
      Edit1.Clear;
      showmessage('Веден неверный пароль!!!');
    end;
  end;     end;
end.

procedure TForm21.Button1Click(Sender: TObject);
var
  log: String;
begin
  log := DBLookupComboBox1.Text;
  with AdoQuery1, Parameters do
  begin
    SQL.Text:='SELECT * FROM Авторизация  WHERE ( Логин= :логин) and (Пароль = :пароль)';
    ParamByName('логин').Value := log;
    ParamByName('пароль').Value := Edit1.Text;
    Open;
    if RecordCount > 0 then
    begin
      if FieldValues['Логин'] = 'Админ' then
            showmessage('Вход в систему Выполнен.');
             Form21.Hide;
      Form1.Show;
      else
      begin
      if FieldValues['Логин']='User' then
        showmessage('Вход в систему Выполнен.');
             Form21.Hide;
      Form8.Show;
      end;
        end else
    begin
      SQL.Text:='SELECT * FROM Авторизация';
      Open;
      Edit1.Clear;
      showmessage('Веден неверный пароль!!!');
    end;
  end;     end;
end.