[marcoszorrilla]

Lo puedes solucionar poniendo un código similar a éste en el DPR:

{$R *.RES}
Var
Respuesta:Integer; //Para recoger el valor de la clave
begin
  Application.Initialize;

  frsplash:=Tfrsplash.create(nil);
  frsplash.update;

  Application.Title := 'XXXXXX’;
  Application.CreateForm(TDmoxxx, Dmoxxx);
  Application.CreateForm(TfrMenu, frMenu);
  frsplash.free;
  //Petición de Clave
  frLogin := TfrLogin.Create(Application);
  try

     try
        Respuesta :=frLogin.ShowModal; //Toma el valor de ModalResult de Login

     finally
        FreeAndNil(frLogin);//No funciona con D3
     end;

  except
       ShowMessage('error creando formulario.');
  end;
  //Fin Petición de Clave

    if Respuesta = xx  then
    Application.Run
    else
    Application.Terminate ;
end.

Un Saludo.