Hola Alejandro73
Mira, veo que trabajas con el componente TIdMessage.. bueno, si observas sus propiedades te podras dar cuenta que existe
BccList, la cual genera un listado con Address, Name y Text
para agregar Cc, tendrias que usar algo así como
Código Delphi
[-]
IdMessage.BccList[0].Address := direccion_correo@dominio
idMessage.BccList[1].Address := direccion_correo2@dominio
en realidad no he probado esto.. pero deberia andar por ahí el asunto.. espero que te sirva.. suerte