excepciones de IDSMTP

[raco]

Hola , 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 , 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 , 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.

[raco]

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