Fórum Erro com ModalResult - Access violation 004E16E3 #364857

program PVariaveis;

uses
  Forms,
  Controls,
  SysUtils,
  uPrincipal in ´uPrincipal.pas´ ,
  uDM in ´uDM.pas´ {dm: TDataModule},
  Ufrm_Login in ´Ufrm_Login.pas´ ;

{$R *.res}

begin
  Application.Initialize;
  {:Aqui chamo primeiro a conexão com o banco}
  Application.CreateForm(Tdm, dm);
  {:Depois vai criar o form frm_Login, que deve estar com a
  propriedade visible do form como False, pois esta sendo criando em
  tempo de projeto, logo após digitado login e senha, é destruido o form
  da memoria para poder entrar no sistema frmPrincipal}
  with Tfrm_Login.Create(nil) do
   try
      ShowModal;
      if ModalResult = mrOk then
         Application.CreateForm(TfrmPrincipal, frmPrincipal)
      else Application.Terminate;
   finally
      Free;
      Application.Run;
   end;
end.