Ошибка 'access violation' при попытке свернуть форму

unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TfrmLogin = class(TForm)
    Button1: TButton;
    Button2: TButton;
    edtLogin: TEdit;
    edtPass: TEdit;
    procedure Button1Click(Sender: TObject);
  end;
 
  // функция авторизации. ее можно вызывать потом и при работе программы (ну мало ли :))
  // проверять результат и принимать решение
  function Authorized: boolean;
 
implementation
 
{$R *.dfm}
 
// отображение окна авторизации
function Authorized: boolean;
begin
  with TfrmLogin.Create(Application) do
  begin
    Result:= ShowModal = mrOk;
    Free;
  end;
end;
 
// DUMP-функция. проверка карректности данных
function CheckLogin(const Login,Password: string): boolean;
begin
  Result:= true;
end;
 
procedure TfrmLogin.Button1Click(Sender: TObject);
begin
  // click on OK button
  if CheckLogin(edtLogin.Text,edtPass.Text) then ModalResult:= mrOk else
  begin
    ShowMessage('Incorrect!');
    edtLogin.Clear;
    edtPass.Clear;
    edtLogin.SetFocus;
  end;
end;
 
end.

program Project1;
 
uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {frmMain},
  Unit2 in 'Unit2.pas' {frmLogin},
  Vcl.Themes,
  Vcl.Styles;
 
{$R *.res}
 
begin
  Application.Initialize;
  TStyleManager.TrySetStyle('Glow');
  if not Authorized then Exit;                // добавим всего одну строчку
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  if not Authorized then Exit;
  TStyleManager.TrySetStyle('Cyan Night');
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  TStyleManager.TrySetStyle('Auric');
  Application.CreateForm(TForm1, Form1);
  if not Login then Exit;
  Application.Run;
end.

function Login: boolean;
begin
  Application.CreateForm(TForm2,Form2);
  Result:= (Form2.ShowModal = mrOk);
  FreeAndNil(Form2);
end;

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  TStyleManager.TrySetStyle('Auric');
  if not Login then Exit;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.