excepciones de IDSMTP
 

Hola:D , estoy programando en Delphi 7 una aplicacion para enviar correo, estaba usando un coponente llamado ANSMTP pero tuve q cambiar el codigo x q era una version de prueba y expiro:p , ahora estoy usando el IDSMTP de las Indy y el Idmessage;) , ya cheque varios codigos que vienen en esta pagina, y si puedo enviar los correos:) , pero no me funciona cuando quiero manejar estas 2 excepciones EIdSocketError y esta EIdProtocolReplyError:mad: , a ver si alguien me puede ayudar por favor.

Asi es el codigo que tengo para esas dos excepciones

ON E: EIdProtocolReplyError do begin
showmessage('No se ha podido enviar el email.' + #13 +
'Incorrecto el email o el usuario o la password.');
end;

on E: EIdSocketError do begin
showmessage('No se ha podido enviar el email.'+ #13 +
'Host desconocido o incorrecto.');
end
else begin
Msg('Fallo en el envio de email');

gracias.:D

me conteste solito
 

Ya supe que era lo que me faltaba gracias, necesitaba agregar a los uses IdException;) y nada mas:p , problema resuelto:D .