Problema con envio de correos con fichero adjunto

[apicito]

Ya Está !!!
Solo he comentado las lineas "Mensaje.ContentType" y funcionó a la primera.

Código Delphi [-]
  // Si hay que meter un archivo adjunto lo creamos y lo asignamos al mensaje
  if (sAdjunto <> '') and (FileExists( sAdjunto )) then begin
    Adjunto := TIdAttachmentFile.Create(Mensaje.MessageParts, sAdjunto);
    //Mensaje.ContentType := 'multipart/related';
  end else begin
    Adjunto := nil;
    //Mensaje.ContentType := 'multipart/alternative';
  end;

Gracias por tu ayuda.