Пароль на открытие формы в Delphi

[Lex]

Подскажите как запаролить открытие формы в Delphi?

[aTeos]

Ставишь на первую форму edit и кнопку. На нажатие кнопки пиши:

if Edit1.Text = "ABRAKADABRA" then // проверка пароля

Form2.Show //Вместо Form2 - впиши имя второй формы

else

ShowMessage("Wrong password");