[Alegun]

Как вариант

Код:

...
if ADOQuery1.FieldByName('Dostup').AsString = 'Администатор' then Form2.ShowModal
 else
  with Form2 do
   begin
    Edit1.Visible:= false;
    Edit2.Enabled:= false;

    Button1.Visible:= false;
    Button2.Enabled:= false;

    {...}

    ShowModal;
   end;

...