[SniperKz]

Всем привет, у меня вопрос
Вот мой код для Password Dialog

Код:

procedure TPasswordDlg.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
   const pass='123';
begin
 if Password.Text = pass then
 begin CanClose:=true;
    Form1.pgc1.Visible := True;
    end
else Application.Terminate;
end;

Bargest: выделяем код тегами!
Можно ли в пассворд диалоге сделать еще 1 пароль? Например я хочу сделать еще 1 пароль но с ограниченными правами, при которых видимость некоторых компонентов будет false

Заранее спасибо