if pAnexo.Count > 0 then
    begin
      for i := 0 to pAnexo.Count - 1 do
      begin
          vIdAttachmentFile.Create(vIdMessage.MessageParts, pAnexo.Strings[i]);
      end;
    end;

vIdAttachmentFile.Create(vIdMessage.MessageParts, pAnexo[i]);

vIdMessage.ContentType := 'multipart/mixed';