Enviar Email pelo meu sistema

Olá Rodrigo/Wesley, tive que mexer na aplicação, apenas coloquei uma label, porem agora ao enviar email me apresenta um erro de referencia, o que pode ser:



Segue o Código do Meu botão enviar:

var
  Msg    : MailMessage;
  Smtp   : SmtpClient;
  Conn   : SqlConnection;
  Comand : SqlCommand;
  Read   : SqlDataReader;
  Grupo  : string;
  i      : integer;


begin


  For i := 0 to ListBox_Grupos.Items.Count-1 do
  begin
    if ListBox_Grupos.Items[I].Selected then
      Grupo := Grupo + ListBox_Grupos.Items[I].Value+',';
  end;
  if assigned(Grupo) then
    Grupo := Grupo.Remove(Grupo.Length-1,1);


  Conn.ConnectionString := ConfigurationManager.ConnectionStrings['ConexaoShalom'].ToString;
  Comand := SqlCommand.Create('spEnviarEmails', Conn);
  Comand.CommandType := CommandType.StoredProcedure;
  Comand.Parameters.Add('@IDGRUPO', Grupo );
  Conn.Open;
  Read := Comand.ExecuteReader;


  Msg := MailMessage.Create;
  Msg.From    := MailAddress.Create('paulo@4freires.com.br','Paulo Freire');
  Msg.Subject := txtAssunto.Text;

  while Read.Read do
  begin
    Msg.Bcc.Add(Read.GetString(0));
  end;

  Msg.Priority   := MailPriority.High;
  Msg.Body       := txtMensagem.Text;

  Smtp := SmtpClient.Create('smtp.4freires.com.br',25);
  Smtp.Credentials := NetWorkCredential.Create('paulo@4freires.com.br','minhasenha');

  Smtp.Send(Msg);


Valeu...