[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;