Capturar error de Conexion (EOleException)

[jeremiselxi]

Muy buen día.

Esperando se encuentren bien, les informo que tuve muchos problemas con mi aplicación, porque en ocasiones, cuando realizaban algún ajuste o cambio a la base de datos SQL Server, mostraba estos dos errores, y se mostraban como cada 20 segundos siendo esto muy molesto:

First chance exception at $759F845D. Exception class EOleException with message '[DBNETLIB][ConnectionWrite (send()).]Error general de red. Consulte la documentación de la red'. Process SGPA.exe (9688)

First chance exception at $759F845D. Exception class EOleException with message 'Error en la conexión'. Process SGPA.exe (9688)

y lo solucioné agregando un componente ApplicationEvents y en el evento OnException puse este código:
Nota: hay que agregar en el uses ComObj;

Código Delphi [-]
procedure Tform_tablas.ApplicationEvents1Exception(Sender: TObject;
  E: Exception);
var
  EO:EOLEException;
begin
  if E is EOLEException then
  begin
    EO:=EOLEException(E);
    begin
    //creé un form personalizado que muestre un mensaje indicando que si quiere reiniciar el programa presione clic en algunos botones.
    Form_error_conexion.Close; 
    Form_error_conexion.ShowModal;


    end;
  end;

end;

Espero que les haya servido.

Saludos y Dios les bendiga.

[MAXIUM]

Muchas gracias. Me ha servido