[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;

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

[Kailon]

...не были активны (не было видно) некоторые компоненты...

У всех визуальных компонентов есть свойства Enable и Visible, вот ими и оперируй.

[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;

...