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

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.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;
 
type
  TFormvhod = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    edt1: TEdit;
    cbb1: TComboBox;
    btn1: TButton;
    img1: TImage;
 
    procedure btn1Click(Sender: TObject);
    procedure edt1Change(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Formvhod: TFormvhod;
 
implementation
uses Unit10, Unit13, Unit9;
{$R *.dfm}
 
procedure ROLog_in;
begin
Form2.Show;
Formvhod.Hide;
end;
 
procedure Log_in;
begin
Form1.Show;
Formvhod.Hide;
end;
 
procedure TFormvhod.Btn1Click(Sender: TObject);
begin
  if ((Edt1.Text = '1234') and (Cbb1.Text ='Admin')) then
  Log_in
  else
 
   if ((Edt1.Text = '123') and (Cbb1.Text ='User')) then
   ROLog_in
  else
    MessageDlg('Неверный пароль',
          mtError,[mbOK],0);
end;
procedure TFormvhod.edt1Change(Sender: TObject);
begin
 Edt1.Text:='';
end;
end.

 begin
      if FieldValues['Логин'] = 'Админ' then
            showmessage('Вход в систему Выполнен.');
             Form21.Hide;
      Form1.Show;
      if FieldValues['Логин']='User' then
        showmessage('Вход в систему Выполнен.');
             Form21.Hide;
      Form8.Show;
    end else

button1click после
if RecordCount > 0 then 
и до 
  end else
    begin
      SQL.Text:='SELECT * FROM Авторизация';