Verifica status da Conexão com Oracle

Bom dia, pessoal do Clube do Delphi.

(Utilizo: Delphi 5 e Oracle 8i)

Antes de conectar no banco de dados Oracle (evento: BeforeConnect do objeto TDataBase), quero verificar se este está no ar / startup.
Assim, posso enviar mensagem para o DBA e cancelar a execução do meu sistema.


Qualquer ajuda é bem-vinda,

Fabiana Linden (GO)