Cuando la red falla como capturar error

[Mauro®]

Duilio gracias por tu respuesta.
He hecho esto que indicas, pero por cada evento que maneja la conexión con la base de datos debo colocar un Try Except End; queria saber hay alguna manera de monitorear este error a nivel aplicación para no tener que agregar un try en cada evento que accede a los datos.
Existe esto que planteo?

Muchas gracias

[Casimiro Notevi]

Algunos componentes hacen eso, pero no es la solución, es como si le falta una rueda al coche y quieres que haya alguien ocupando su lugar. La solución es ponerle la rueda.
En este caso, obviamente, la solución es arreglar la red, que unos metros de cables, para unos médicos, es poca cosa, seguro que se gastan más en tabaco

[[duilioisola]]

Estoy de acuerdo con Casimiro, pero se que los usuarios no valoran la inversión en infraestructura si se puede "apañar" con parches aquí o allá.

Con respecto a un "capturador de excepciones", creo que puedes hacer esto en tu Formulario principal:

Código Delphi [-]
...
private
  procedure CapturaErrores(Sender: TObject; e: Exception);
...

procedure TFMPrincipal.FormCreate(Sender: TObject);
begin
  ...
  Application.OnException := CapturaErrores;
  ...
end;

procedure TFMPrincipal.CapturaErrores(Sender: TObject; e: Exception);
begin
  // Mensaje de error propio
  ShowMessage('Se ha producido un error no tratada. Se cerrará la aplicación');
  // Clase de excepción que se ha producido
  ShowMessage('Exception class name = '+E.ClassName);
  // Mensaje original de la excepción
  ShowMessage('Exception message = '+E.Message);
  // Cierro la aplicación
  Close;
end;

[Mauro®]

Muchachos gracias por las respuestas.
Duilio efectivamente la ultima solución es la que utilice, para parchear el problema.
Estoy de acuerdo con Uds. que debería resolverse el problema de fondo que es la red, pero... el cliente siempre tiene razón, yo ya les he aconsejado si ellos quieren solucionar el problema ya saben donde esta el mismo.

Desde ya muchas gracias.
Saludos
Mauro