Сделать разграничение прав доступа к таблицам и кнопкам в проекте Delphi через данные из Access

procedure TForm3.Button1Click(Sender: TObject);
begin
 datamodule1.ADOQuery1.SQL.Clear;
 Datamodule1.Adoquery1.SQL.ADD('Select Password from Mastera WHERE Login='+#39+Edit1.text+#39);
 datamodule1.adoquery1.open;
 if  datamodule1.adoquery1.isempty
 then
 showmessage('Ïîëüçîâàòåëü '+Edit1.Text+' íå íàéäåí!')
 else
 if datamodule1.adoquery1.FieldByName('Password').Value <> Edit2.text
 then showmessage('Íåâåðíûé ïàðîëü!')
 else
 form1.show;
 form3.Hide;
 
end;

procedure TFormVHOD.Button1Click(Sender: TObject);
begin
 
if  (
     (edit1.text='Сердюков Владимир Кужугетович') and(edit2.text='11')
   ) or (
     (edit1.text='Буйнов Артем Николаевич') and(edit2.text='22')
   )
then
begin
if edit1.Text='Сердюков Владимир Кужугетович' then
      begin
    form2.show;
    FormVHOD.Hide;
    Form2.Label2.caption:='Сердюков Владимир Кужугетович';
    form2.Label4.Caption:='Мастер';
   end;
   if edit1.Text='Буйнов Артем Николаевич' then
        begin
    form2.show;
    FormVHOD.Hide;
    Form2.Label2.caption:='Буйнов Артем Николаевич';
    form2.Label4.Caption:='Менеджер';
   end;
   end
   else
   begin
       showmessage('Данные неправильны!');
   end;
 
end;

IF Роль='менеджер' then