Erro com Indy

  dmPesquisas.cdsAniversario.First;
  while not dmPesquisas.cdsAniversario.Eof do
    begin
      if dmPesquisas.cdsAniversarioEMAIL.AsString <> ´´ then
        sEmail := dmPesquisas.cdsAniversarioEMAIL.AsString  + ´;´ + sEmail;
      dmPesquisas.cdsAniversario.Next;
    end;

  try
    with smtp do
      begin
        Host := DMCadastro.cdsConfigSEVIDORSMTP.AsString;
        port := 25;
        Username := DMCadastro.cdsConfigLOGINEMAIL.AsString;
        Connect();
      end;

    with IdMessage do
      begin
        From.Address := DMCadastro.cdsCadEmpresaEMAIL.AsString;
        //Recipients.Add.Address := edtPara.Text;
        Recipients.EMailAddresses := edtPara.Text;
        Subject := edtAssunto.Text;
        Body.Text := MmMensagem.Lines.Text;
        MessageParts.Clear;
      end;
    TIdAttachment.Create(IdMessage.MessageParts, edtAnexo.Text);
    smtp.Send(IdMessage);

    smtp.Disconnect;
  except
    MessageBox(0, ´Ocorreu um erro no envio!´, PChar(DMCadastro.cdsCadEmpresaFantasia.AsString), MB_ICONHAND or MB_OK);
    Close;
  end;