Разграничение прав доступа пользователей

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['Логин'] = '1111' then
        showmessage('Вход в систему под Администратором выполнен.')
      else
        showmessage('Вход в систему Выполнен.');
 
      Form21.Hide;
      Form1.Show;
    end else
    begin
      SQL.Text:='SELECT * FROM Авторизация';
      Open;
      Edit1.Clear;
      showmessage('Веден неверный пароль!!!');
    end;
  end;     end;
end.

     if ADOQuery1.Recordset.Fields[3].Value=0 then
     begin
        form1.MainMenu1.Items[1].Visible:=false;
        form1.MainMenu1.Items[2].Visible:=false;
        // .............  
     end
     else
        form1.MainMenu1.Items[1].Visible:=true;
        form1.MainMenu1.Items[2].Visible:=true;    
        // .............    
     end;