Erro em tempo de execução [Firebird+DbExpress]

Bom dia a todos,

Tenho um sistema (delphi 7, Firebird 2, DbExpress) onde um conjunto de Threads acessam o banco de dados para checar os dados de acordo com a entrada de cada Thread.

O sistema funciona muito bem até um certo período (o sistema no caso é um servidor) . Quando o sistema está rodando por mais de 8 horas ele apresenta problemas para criar as novas conexões TSQLconnection para cada Thread, gerando uma exceção. O meu uso é bem simples do banco, geralmente

<Abre conexão>

<Algo SQL>

<Execute ou Open>

<Close Conexão>

Ou seja, a conexão não precisa ser persistente , apenas momentãnea.

Li em outros lugares que este problema pode ser por excesso de conexões concorrentes no banco. ou seja , mesmo eu chamando o close dentro do Firebird a conexão não é fechada, gerando overflow no MaxConnections.

1) Existe um meio de "forçar" o firebird a fechar a minha conexão?

2) Existe um meio de saber quantas conexões concorrentes estão em uso no momento? Note que são conexões e não usuários

Grato

Rodrigo Duran