Mi aplicación no se cierra
 

Tengo el siguiente código dentro de un datamodule que carga un formulario

Código Delphi [-]
    case frmLogin.ShowModal of
      mrOk :
          begin
            pLoginParams.Add('user_name=' + StrUpper(pcHAR(frmLogin.eUsuario.Text)));
            pLoginParams.Add('password=' + frmLogin.ePassword.Text);
            pLoginParams.Add('sql_role_name=xxxx');
            pLoginParams.Add('lc_ctype=WIN1252');
            {Manipulación del registro}
            If registro.ReadString('Base de Datos') = '' then
              If StrRexx.SearchForFile('\','CENTRAL DE RESERVAS.FDB',BDPath) then
                registro.WriteString('Base de Datos',BDPath+'CENTRAL DE RESERVAS.FDB');
            SecurityString := StrRexx.GeneratePWDSecutityString;
            registro.WriteString('Cadena',SecurityString);
            registro.WriteString('Usuario',Codificar(frmLogin.eUsuario.text));
            registro.WriteString('Clave',Codificar(frmLogin.ePassword.text));
            registro.WriteString('Roll',Codificar('xxxx'));
            Registro.WriteBool('Recordar Configuracion',frmLogin.JvgCheckRecordar.Checked);
            registro.Free;
            {Fin Manipulacion registro}
          end;
     mrCancel :
        begin
          Application.Terminate;
          Application.ProcessMessages;
        end;
     mrNone : ShowMessage('Modal Result mrNone');
    end;
  finally
    frmLogin.Free;
  end;

El caso es que cuando cierro el formulario en el botón de cierre de la ventana (la X de la esquina superior Derecha) pasaría por

Código Delphi [-]
     mrCancel :
        begin
          Application.Terminate;
          Application.ProcessMessages;
        end;

y el caso es que la aplicación no se cierra como pretendo.

He leido varios hilos al respecto pero no me aportan ninguna "luz" de como solucionar el tema.

Agradezco las ayudas que me podais facilitar.:eek:

¿No se cierra o no pasa por ahí? Me da que es lo segundo.

// Saludos