Adjuntos en un correo

[Angel.Matilla]

Buenos días a todos. Tengo un problema con el envío de correos desde una aplicación hecha en BCB 6 con la inclusión de adjuntos. Estoy usando este código para montar el mensaje:

fMenu->MenCor->MessageParts->Clear();
fMenu->MenCor->Recipients->Clear();
fMenu->MenCor->CCList->Clear();
fMenu->MenCor->BccList->Clear();
fMenu->MenCor->ClearBody();
fMenu->MenCor->Subject = fDatCor->Asunto->Text;

fMenu->MenCor->Body->Text = fDatCor->Texto->Text;

if (fDatCor->Firma->Lines->Count > 0)
     fMenu->MenCor->Body->Text = fMenu->MenCor->Body->Text + "\n-----" + fDatCor->Firma->Text;

if (fDatCor->Adjuntos->Items->Count > 0)
     for (nItem = 0; nItem < fDatCor->Adjuntos->Items->Count; nItem ++)
          if (FileExists(fDatCor->Adjuntos->Items->Item[nItem]->SubItems->Strings[0]))
               TIdAttachment *Adjunto = new TIdAttachmentFile(fMenu->MenCor->MessageParts, fDatCor->Adjuntos->Items->Item[nItem]->SubItems->Strings[0]);

Todo el mensaje se monta bien pero si el usuario quiere enviar más de un adjunto, el mensaje llega sólo con el texto sin ningún adjunto; sin embargo si selecciona un único adjunto entonces si se envía bien. ¿Podéis guiarme un poco? Porque no sé que estoy haciendo mal