Программа под паролем

[Shouldercannon]

Можно ли сделать в Delphi следующее?
Есть две формы: главная и форма ввода пароля. В главной форме нажимает на Button1

procedure TForm1.Button1Click(Sender: TObject);
begin
  FormPassword.Show; // Форма ввода пароля
  // Ожидание ввода пароля
  Application.Terminate;
end;

Пока пароль не введён или введён неправильно программу не закрывать, если всё норально, то закрыть форму пароля и идти дальше по процедуре Button1Click

[Terran]

Главная форма:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Form2.ShowModal;
//...
Application.Terminate;
End;

Форма ввода пароля:

Procedure TForm2.Button1Click(Sender: TObject);
Begin
If Edit1.Text = '12345' Then
Form2.Close
Else
ShowMessage('Не верный пароль!');
End;

[Shouldercannon]

Где само ожидание и продолжение выполнения процедуры главной формы или так нельзя сделать?

[Terran]

Сообщение от Shouldercannon

Где само ожидание и продолжение выполнения процедуры главной формы или так нельзя сделать?

Всё есть:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Form2.ShowModal;
//Ожидание закрытия второй формы
Application.Terminate;
End;

[Shouldercannon]

Проблема состоит в создании ожидания. Как его написать?

[Terran]

Сообщение от Shouldercannon

Проблема состоит в создании ожидания. Как его написать?

Пока пароль не введён или введён неправильно программу не закрывать, если всё норально, то закрыть форму пароля и идти дальше по процедуре Button1Click

Реализацию этого я написал выше. Ожидание получается за счёт вызова модальной формы ShowModal.

[Shouldercannon]

Пардон за невнимательность. В случае если форму с паросем закроют на X, то процедура завершения работы приложения выполниться до конца?

[Terran]

В случае если форму с паросем закроют на X, то процедура завершения работы приложения выполниться до конца?

Да. Скомпилируйте программку и поэкспериментируйте

[Arigato]

Можно использовать ModalResult, значение которого возвращает ShowModal.

[Shouldercannon]

Разрулил ситуацию с помощью Boolean