Capturar ESocketError en la aplicacion

[Rockin]

Lo tengo casi listo de la siguiente forma:

En el evente Create del Modulo de datos pongo lo siguiente:

Código Delphi [-]
Application.OnException := AppException;

Y llamo a un procedimiento llamado AppException que hace lo siguiente, comprueba si la excepción es la que busco y si lo es hago las instrucciones que me hacen falta:

Código Delphi [-]
procedure TdatDatosRemoto.AppException(Sender: TObject; E: Exception);
begin

        If (E.Message = 'mensaje que quiero capturar) then
        begin
     
            Instrucciones que quiero hacer.
          
        End;


end;

Me falta un poco para ver como reconectar con la BD, pero la excepción la capturo bien. Lo he probado fuera de delphi.

Gracias y saludos.