Error al enviar mail con archivo adjunto

[cbothamley]

Hola a todos. Tengo problemas al enviar mail con archivos ajuntos. Cuando el archivo es muy pequeño lo envia correctamente, pero cuando es de mas de 100kb me da el siguiente error "connection reset by peer". Para ajuntar utilizo la siguiente sentencia.

Código Delphi [-]
TIdAttachment.Create(idMensaje.MessageParts,'c:\adjunto.zip');

Suludos. Gracias