Листинг 4

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.