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