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.   

  program trial;      uses   forms,   unit1 in 'unit1.pas' {form1},   registry, dialogs; // Для tregistry и showmessage      {$r *.res}   var   reg: tregistry;   n: integer;   begin   reg := tregistry.create;   with reg do   begin   openkey('software', true);   openkey('trialprog', true);   if valueexists('maxrun') then // Первый запуск?   begin // - Нет   n := readinteger('maxrun')-1;   if n>=0 then   writeinteger('maxrun', n)   end else begin // -Да, первый запуск   n := 5;   writeinteger('maxrun', n)   end;   free   end;   if n>0 then   begin   application.createform(tform1, form1);   application.run;   end else   showmessage('Исчерпано максимальное количество запусков'+   ' пробной версии программы')   end.