Попробуй зайти в Project -> View Source и изменить код на
program Project1;
uses
Forms,
Dialogs, {Обязательно}
SysUtils,{Если не добавить этот модуль, нужно убрать строку Beep;}
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
var
Pas: String;
begin
Application.Initialize;
Application.Run;
InputQuery('Введите пароль', 'Пароль:', Pas);
if Pas = 'Password'{Здесь введи свой пароль} then
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
begin
ShowMessage('Неверный пароль!');
Beep;
Application.Terminate;
end;
end.
|