[poison-bla]

Доброго времени суток!
Делаю авторизацию в программе, пользуюсь таким запросом.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var username, password : string;
begin
    username:= Edit1.Text;
    password:= Edit2.Text;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('SELECT * ');
    ADOQuery1.SQL.Add('FROM Pol ');
    ADOQuery1.SQL.Add('WHERE Password = "' + password + '" AND Login = "' + username + '"');
    ADOQuery1.Open;
    ADOQuery1.Active:= true;
    if ADOQuery1.FieldByName('Dostup').AsString = 'Администратор' then
    begin
      Form2.ShowModal();
    end
    else
    if ADOQuery1.FieldByName('Dostup').AsString = 'Пользователь' then
    begin
      Form4.ShowModal();
   end
    else
    begin
      ShowMessage('Введен неверный пароль!');
      end;
      Edit1.Clear;
      Edit2.Clear;
      end;

Только в этом запросе для админа и пользователя открываются разные формы, а мне нужно, чтобы открывалась одна и та же, только чтобы для пользователя не были активны (не было видно) некоторые компоненты. Подскажите, пожалуйста, как это можно сделать?