Detener envío de e-mail con TIdSMTP

[[gluglu]]

Como puedo detener el envío de un correo ya iniciado mediante el Send del TIdSMTP ?

No encuentro ningún método o instrucción que sirva para pararlo. Si utilizo Disconnect durante el envío, mi aplicación se queda colgada.

Debe de haber alguna manera de cancelar el envío mientras no haya finalizado, no ?

Gracias por vuestra ayuda.

[[gluglu]]

Código Delphi [-]
idSMTP1.Socket.Close;

Esto provocará una excepción en el idSMTP1.Send(Mensaje) que puede ser interceptada si se requiere.