ayuda con email

[dec]

Hola,

Mejor no hubieras editado el mensaje, porque menuda la has liado...

Respecto de lo que te ocupa, he probado con algo así y parece funcionar bien:

Código Delphi [-]
 uses
   // Unidades básicamente precisas.
   IdEMailAddress, IdSMTP, idMessage;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   servidorSmtp: TIdSMTP;
   mensajeCorreo: TIdMessage;
   nuevoOculto: TIdEMailAddressItem;
 begin
 
   // Creamos los objetos necesarios
   servidorSmtp := TIdSMTP.Create(Self);
   mensajeCorreo := TIdMessage.Create(Self);
 
   // Preparamos el correo básicamente
   with mensajeCorreo do
   begin
     Subject := 'Asunto del correo';
     Body.Text := 'Cuerpo del correo';
     From.Address := 'remitente@correo.es';
     Recipients.EMailAddresses := 'destinatario@correo.es';
   end;
 
   // Añadimos una dirección a la BccList
   nuevoOculto := mensajeCorreo.BccList.Add;
   nuevoOculto.Address := 'oculto1@correo.es';
 
   // Añadimos otra dirección a la BccList
   nuevoOculto := mensajeCorreo.BccList.Add;
   nuevoOculto.Address := 'oculto2@correo.es';
 
   try
     // Preparamos y conectamos con el Smtp.
     servidorSmtp.Host := 'smtp.servidor.es';
     servidorSmtp.Connect;
     try
       // Intentamos enviar el correo.
       servidorSmtp.Send(mensajeCorreo);
       // Tuvimos suerte, se envió 
       ShowMessage('¡Correo enviado!');
 
     except
       on E: Exception do // Algo salió mal...
         ShowMessage('Falló el envío: ' + E.Message);
     end;
 
   finally
     // Finalmente...
     servidorSmtp.Disconnect;
     servidorSmtp.Free;
     mensajeCorreo.Free;
   end;
 end;