Delphi - Necesito que me avise que no hay conexión.

Hola. Tengo un problema. He hecho una función para enviar correo con mensajes adjuntos. Todo funciona correctamente. Pero si quito el cable de red (LAN) y dejo el equipo sin conexión a internet, al llegar a la instrucción NMSMTP1.Connect el programa casca y quiero que en vez de dejarme colgado me avise de que no hay conexión y poder seguir trabajando.

es muy sencillo usa un truco .....
try
NMSMTP1.Connect;
except
ShowMessage('Error : No he podido conectar con el servidor');

mira hay un componente que se llama onlineip, te entrega tu estado actual y ademas tu ip. bajalo de http://delphi.icm.edu.pl/
ojala te sirva...
bye