Apagaron el servidor Firebird !!!!

[[sitrico]]

Es una supocisión pero tengo días con la preocupación.

¿Que pasaría si mientras se ejecuta una aplicación cliente servidor algún usuario decide apagar justamente el equipo que sirve como servidor ó suspender el servicio del firebird?

Por partes:

Al cargar mi aplicación intento conectarme al servidor firebird (usando los MDO database.conected := true) capturo si ocurre una excepción y si es así permito reintentar o cancelar

algo así:

Código Delphi [-]
// escribo de memoria pero es más o menos la idea
Procedure datamodule.OnCreate...

Repeat
Try
   Database.conected := true;
Except
   r := MsgBox('Error de conexión...',MB_retryCancel)
   End;
Until (Dtabase.active) or (r = idCancel)
If r = idCancel Then
   application.terminate;

Funciona bien al iniciar el programa pero:

Y esta si es la pregunta:

como puedo verificar que el servidor este "en Linea" antes de ejecutar algunas sentencias SQL criticas.

Gracias