Delphi Access разделение пользователей

FormRegistered.showmodal;
end;
 
procedure TFormAutor.ButtonEnterClick(Sender: TObject);
var LogPass: array of string;
    I,H, Counts: integer;
    Login, Password, ResultLogPass: string;
begin
 
SetLength (LogPass,800);
 
ADODataSetUserTable.Active:=true;
 
 
 
ADODataSetUserTable.First;
for I := 0 to ADODataSetUserTable.RecordCount -1 do  //Обработка данных Логина и Пароля пользователя.
   begin
     LogPass[I]:= ADODataSetUserTable.FieldValues ['UserName']+' '+ADODataSetUserTable.FieldValues ['UserPass'];
     ADODataSetUserTable.Next;
     Inc(Counts);
   end;
 
 
ResultLogPass:= Trim(EditLogin.Text)+' '+Trim(EditPassword.Text);
for H := 0 to Counts do                 //Цикл проверки данных на истину.
 
  begin
   if ResultLogPass = LogPass[H] then
 
 
        begin
 
          UserIndex:=H;
          form1.showmodal;
        end
          Else
            LabelInfoNone.Caption:='Не верный логин или пароль';
  end;
 
 
 
end;
end.

if ADODataSetUserTable.FieldValues ['Администратор'] = true then
form1.show;
if ADODataSetUserTable.FieldValues ['Администратор'] = false then
form2.show;

  begin
              UserIndex:=H;
         if ADOQuery1.FieldValues ['Администратор']=false  then
             form1.Show;
             end
else
begin
if ADOQuery1.FieldValues ['Администратор']=true  then
        form2.Show;