В этом модуле определена функция
program Password; uses Forms, Dialogs, // В этом модуле определена функция InputQuery Unit1 in 'Unit1.pas' {MainForm}; {$R *.RES}
var Passwrd: String; begin // Запрашиваем пароль:
if InputQuery('Окно ввода пароля','Введите пароль:',Passwrd) then // Проверяем его:
if Passwrd = 'Delphi' then
begin // Все в порядке, пароль верен Application.CreateForm(TMainForm, MainForm);
Application.Run; end else ShowMessage('Пароль не верен!');
end.
