БД и Аксесс разраничение прав доступа

[курбанниязов]

Если пользователь авторизовался как Администратор он может просматривать все формы и редактировать
А если авторизавался пользователь то он может только просматривать 1 определеную форму
Снизу преставлен код авторизации пользователей он работает авторизация
как правильно это реализовать ограничинь права доступа пользователей

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.

[Streletz]

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

Без обид. Тема разграничения прав доступа в программах, уже изъезжена вдоль и поперёк. Поэтому, материалов по ней, в том числе на форуме, более чем достаточно. Если, хотя бы попытаться, её прогуглить, вполне возможно найти что-то подходящее.
На всякий случай, в помощь:
Как сделать, чтобы с программой могли работать разные пользователи?
Разграничение прав доступа