Error en envio de adjuntos en Email

[[ElDioni]]

Buenos días gente, estoy teniendo un problema al intentar adjuntar un archivo a un correo, estoy utilizando delphi 2005 con los componentes inDy y tengo el siguiente código:

Código Delphi [-]
var
temp:string;
begin
RvSystem2.DoNativeOutput:=false;
RvSystem2.RenderObject:=RvRenderPDF1;
RvSystem2.SystemSetups:=RvSystem2.SystemSetups-[ssAllowSetup];
RvSysTem2.OutputFileName:='C:\Windows\temp\temp.pdf';
IdMessage1.ClearBody;
IdMessage1.Body.Text:='Un saludo.';
idmessage1.Recipients.EMailAddresses:=DESTINATARIO;
IdMessage1.Subject:='Envio de informe';
IdMessage1.Priority:=MpNormal;
IdMessage1.From.Text:=CORREO;
Frmlistadoart.RvProject2.SelectReport('Report13',true);
FrmListadoart.RvProject2.SetParam('Pedido',pedido);
FrmListadoArt.RvProject2.SetParam('PedPapel',compra);
Frmlistadoart.RvProject2.SetParam('RefTinta',tinta);
frmlistadoart.RvProject2.SetParam('RefMotivo',motivo);
Frmlistadoart.RvProject2.Execute;
if fileexists('C:\WINDOWS\Temp\Temp.pdf') then
  begin
    TIdAttachmentfile.create(IdMessage1.MessageParts,'C:\Windows\temp\temp.pdf');
  end;
try
  IdSMTP1.Connect;
    try
      IdSMTP1.Send(IdMessage1);
    Finally
      IdSMTP1.Disconnect;
    end;
  showmessage('Se envio el mensaje correctamente');
Except
  ShowMessage('Fallo en el envio de email');

Si intento mandarlo con el PDF adjunto me salta el siguiente error:

raised exception class EIdSocketError with message 'Socket Error # 10054 Connection reset by peer.'

Sin embargo, si lo envío sin el archivo adjunto el mensaje se envia correctamente. Espero que alguien me pueda echar una mano porque no se porque falla, además este código, o uno muy similiar, lo llevo usando en otro programa hace ya tiempo y comparando el código de uno y otro no veo porque uno funciona y el otro no.

Un saludo y gracias por su tiempo.

[[ElDioni]]

Buenos días,
he estado haciendo pruebas y voy a poner algo más de información para ver si a alguien se le ocurre que puede estar pasando, si el archivo que adjunto en el correo ocupa en el ordenador 1Kb el mensaje se envía correctamente con el archivo adjunto, pero probando con otros archivos de 20Kb o 70Kb, que es lo que me ocupan los PDFs que quiero mandar, me devuelve el fallo de envío de E-mail.
No se si se demora mucho al conectarse al servidor de correo al subir el archivo adjunto o que puede ser, si se les ocurre algo comentenmelo. Gracias.

Un saludo.

[[ElDioni]]

Se me olvidaba comentar que he reducido el codigo para hacer las pruebas, se ha quedado en esto:

Código Delphi [-]

IdMessage1.ClearBody;
IdMessage1.Body.Text:='Un saludo.';
idmessage1.Recipients.EMailAddresses:=DESTINATARIO;
IdMessage1.Subject:='asunto';
IdMessage1.Priority:=MpNormal;
IdMessage1.From.Text:=REMITENTE;
TIdAttachmentfile.create(IdMessage1.MessageParts,ARCHIVO);
try
  IdSMTP1.Connect;
    try
      IdSMTP1.Send(IdMessage1);
    Finally
      IdSMTP1.Disconnect;
    end;
  showmessage('Se envio el mensaje correctamente');
Except
  ShowMessage('Fallo en el envio de email');
End;
If IdSMTP1.Connected Then IdSMTP1.Disconnect;

[[ElDioni]]

Como sigo haciendo pruebas les pongo más información (que creo yo útil) para descartar posibles errores, he probado a configurar otra dirección de correo de otro servidor de correo distinto y sigue ocurriendo lo mismo, archivos de 1Kb si que funcionan y de más tamaño no.

Un saludo.

[[ElDioni]]

Buenos días amigos,
he resuelto el problema que tenía con el tema del adjunto, les explico lo que me ha ocurrido por si le pasa a alguien en el futuro, aunque es sencillo el asunto a mi me ha traido de cabeza, el asunto es que tengo en mi empresa el antivirus McAfee con su correspondiente cortafuegos, tengo bloqueado el delphi para que no se conecte a internet y al ejecutar el código que estaba programando yo le daba a permitir a la aplicación que estaba creando pero no funcionaba, lo raro es que no funcionaba cuando le adjuntaba un archivo como les decía más arriba, al ejecutar la aplicación desde fuera de delphi funciona correctamente, es como si el cortafuegos detectara que un programa que estaba banneado intentara conectarse a través de otro.
Muchas gracias por leer y dedicarle tiempo a mi problema.

Un saludo.

[[kurono]]

amigo eldioni que probado tu codigo y no me funciona pero creo no me funciona por la version de indy que utilizo que es la 9 la que viene por defecto con delphi podria decirme si es esa que utiliza o la version 10