Как поставить пароль на вход в программу Delphi с MDI окнами?

Как поставить пароль на вход в программу Delphi с MDI окнами?


при запуске проекта создается окно ввода логина и пароля на вход в программу, затем открывается главное окно mainform, являющееся fsmdiform.

В теле самого проекта :
program Mdiapp;

uses
Forms,
.....

begin
PasswordDlg := TPasswordDlg.Create(PasswordDlg);
try PasswordDlg.Show;
if 1=2 then Exit;
finally
PasswordDlg.Free;
end;




Application.Initialize;


Application.CreateForm(TMainForm, MainForm);

Application.CreateForm(TAboutBox, AboutBox);
Application.CreateForm(TClient, Client);
Application.CreateForm(TForm2, Form2);
.....
Помогите разобраться как сделать чтобы окно с водом пароля появлялось до открытия главного окна программы MainForm (MDI)?

Другими словами Вы хотите узнать Как сделать чтобы сначала вводился пароль, а потом открывалась mdi форма?

Вот как можно вывести пароль на вход в программу
program Mdiapp;

uses ............
var
PasswordDlg : TPasswordDlg;

...........

begin

Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TAboutBox, AboutBox);
................................
Application.CreateForm(TForm30, Form30);
PasswordDlg := TPasswordDlg.Create(PasswordDlg);
PasswordDlg.ShowModal;
PasswordDlg.Free;
Application.Run;

end.