Fallo en el envío de correo

[Loviedo]

Al enviar correo (un solo destino), este còdigo funciona correctamente, pero si envío un correo masivo, si un destino falla, no llega al
resto de destinatarios. Sin embargo si todos los destinos son correctos no hay problema.
Utilizo delphi7, indy, yahoo.
Si alguien conoce este error, le agradezco su ayuda.
Gracias anticipada. Saludos.

Código Delphi [-]
procedure TFCorreo1.Enviocorreo1;
var
  i: integer;
begin
  SMTP.Host := mHost;
  SMTP.Port := 25;
  SMTP.username := mUsuario;
  SMTP.password := mPassword;

  MailMessage.Clear;
  MailMessage.From.Address := mEmail;
  MailMessage.From.Name := mNombre;
  MailMessage.Recipients.EMailAddresses := mEmail;
  MailMessage.Subject := 'Comunidad de Propietarios';
  MailMessage.Body.Text := Memo1.text;

   // Envío masivo
  for i := 0 to CLB1.Items.count-1 do  // CLB1 es un TCheckListBox
    if CLB1.State[i] = cbChecked then
      MailMessage.CCList.add.Address := Query4EMAIL.Text; {destino}

  for i := 0 to LB1.Items.count-1 do      // LB1 es un TListBox
    if FileExists(LB1.Items[i]) then
       TIdAttachment.Create(MailMessage.MessageParts,LB1.Items[i]);
  try
    try
      SMTP.Connect(1000);
      SMTP.Send(MailMessage);
    except
      showmessage('Fallo en el Envío de Correo');
    end;
  finally
    SMTP.Disconnect;
  end;
end;