Intentar conexion FB en tiempo de ejecución

[taita]

A ver...
Tengo una aplicación con dos tipos de bases de datos. Una de ellas está en Access y se utiliza para trabajar en forma local (por el momento). La otra está realizada en Firebird en un servidor remoto.
Deseo hacer que en el caso de que no exista una conexión activa a internet y no haya acceso al servidor de Firebird, el programa siga con su ejecución normal tras intentar conectarse tres veces.
Por el momento lo único que consigo es una excepción (EIBInterBaseError) que no soy capaz de controlar.

if intentos<3 then
 	begin
 	  try
 		if DM.IBDb1.Connected=FALSE then
 		  BEGIN
 		    frmPortada.StatusBar1.Panels.Items[4].Text:='Servidor Remoto Cerrado';
 			TRY
 			  DM.IBDb1.Connected:=TRUE;
 			  intentos:=intentos+1;
 			  timer1.Enabled:=TRUE;
 			EXCEPT
 			END;
 		  END
 		ELSE
 		  begin
 		    frmPortada.StatusBar1.Panels.Items[4].Text:='Actualizando desde Servidor Remoto';
 		    PingConexion('C');//Esto vuelca unos datos a la base de Firebird
 		  end
 	  except
 
 	  end;
 	end;

Este es el código que utilizo para testear si hay conexión a Firebird. Está dentro de un TTimer que se ejecuta 1 segundo después de iniciar la aplicación.

[rastafarey]

Código Delphi [-]
if intentos<3 then
   begin
     try
     if DM.IBDb1.Connected=FALSE then
       BEGIN
         frmPortada.StatusBar1.Panels.Items[4].Text:='Servidor Remoto Cerrado';
       TRY
         DM.IBDb1.Connected:=TRUE;
         intentos:=intentos+1;
         timer1.Enabled:=TRUE;
       EXCEPT
       END;
       END
     ELSE
       begin
         frmPortada.StatusBar1.Panels.Items[4].Text:='Actualizando desde Servidor Remoto';
         PingConexion('C');//Esto vuelca unos datos a la base de Firebird
       end
     except
             //Codigo insertado
             On E: Exception Do  If (E Is EIBInterBaseError) Then
                 ShowMessage('Pon el error aqui')
                 //ShowMessage(E.Message) Con esto devuelves el error real  
             End Else
                ShowMessage('Error desconocido');
     end;
   end;

[taita]

Gracias rastafarey por contestar.
Voy a probar lo que me dices.

[taita]

Siento haber tardado tanto en contestar.
Funciona perfectamente. Gracias rastafarey.

[rastafarey]

De nada y para eso estamos