Como Envio Correo con Copias?

[[enecumene]]

Hola Alejandro, que tal?, mira trata para la proxima vez usar las etiquetas para que el contenido del mensaje sea mas legible.

Código Delphi [-]
procedure TForm002.BitBtn5Click(Sender: TObject);
var
   smtp: TIdSMTP;
   mail: TIdMessage;
 begin
  {Buscar Correo del Destinatario}
  smtp := TIdSMTP.Create(Self);
  mail := TIdMessage.Create(Self);
  with smtp do
  begin
   Port    :=25;
   Host    :='nombrehost';
   Username:='';
   Password:='';
  end;
  with mail do
  begin
   Recipients.Add;
   {Adiciona Destinatario al Correo}
   Recipients[0].Name   :=EditDestinatario.Text; {Nombre del Destinatario}
   Recipients[0].Address:=EditDestino.Text; {Correo del Destinatario PARA}
   From.Name            :='xxxxx'; {Nombre del Remitente}
   From.Address         :='usuario@dominio';{Correo del Remitente}
   Subject              :=EditAsunto.Text {Asunto}
   Body.Text            :=Memo1.Lines.Text;
   {Adiciona Destinatario CC AL  Correo}
   if EditConCopia.Text<>''
    then begin                CCList.Add.Address:=EditConCopia.Text; 
{destino01@dominio;destino02@dominio;destinon@dominio}
         end;
  end;
  smtp.Connect;
  Screen.Cursor:=CrDefault;
  try
   try
    smtp.Send(mail);
    ShowMessage('Mensaje Enviado Satisfactoriamente');
   except
    on E: Exception do
     ShowMessage('Ocurrio un Error al Intentar enviar Automaticamente el Mensaje');
   end;
  finally
   if smtp.Connected then
      smtp.Disconnect;
  end;
  mail.Free;
  smtp.Free;
end;

Saludos.