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.