Código Delphi
[-]
MailItem.to_:='clubdelphi@yahoo.es'+';'+'mi_correo@clubdelphi.com';
CC := '';
If trim(CorreoAlterno) = '' then
CC := ';'+CorreoAlterno;
MailItem.To_ := CorreoDestino+CC;
Edito:
Acabo de probar:
Código Delphi
[-]
MailItem.to_:='clubdelphi@yahoo.es';
MailItem.cc:='mi_correo@clubdelphi.com';
y me funcionó perfectamente...