Форма - заставка - Delphi

[S_007]

У меня такая мысль, может здесь можно как-то запретить пока появление
а в процедуре FormCreate в конце процедуры после всех подключений дать команду Form2.Show;???
будет ли это правильно?

begin
  Application.Initialize;
  a:=true;
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm1, Form1);
  If a = true then Exit;
  Application.Run;
end.

[min@y™]

Предлагаю свой хороший, годный вариант, в котором главная форма - это главная форма, а не окошко с паролем; в котором окно с паролем создаётся и убивается один раз при запуске программы.

program pf_280465;

uses
  Forms,
  ufMain in 'ufMain.pas' {FormMain},
  ufPassword in 'ufPassword.pas' {FormPassword};

{$R *.res}

begin
  Application.Initialize;

  if not Autorization()
    then Exit;

  Application.CreateForm(TFormMain, FormMain);
  Application.Run;
end.

Скопипастить.

[S_007]

min@y™, Спасибо!!!