gkenji

Obrigado pela resposta Italo, mas encontrei o problema.
Entrei em contato com a SilTecnoliga (provedora da NFSe de Bauru)
Foi me passado que a 1 mês a empresa alterou os códigos de atividade que o CNPJ pode emitir, ou seja, se for apresentado esse erro descrito acima: 
O campo Atividade informado não pertence a lista de atividades do CCM.
Provavelmente o CNPJ não pode emitir esse Código de Atividade.
Para acompanhar isso no provedor da SilTecnologia, você precisa entrar no site da prefeitura, e seguir esses passos:
– Clicar em Sistema Nota Fiscal Eletrônica
– Insira o CPF/CNPJ e a Senha, coloque o Texto Imagem apresentado e clique em Confirmar
– Clique no botão Fichas e Extratos, 
– Selecione a linha da empresa e depois clique no botão azul Continuar
– Selecione em Nome do relatório a * Ficha Cadastro Mobiliário* e clique em Confirmar, abrirá o documento da ficha da empresa.
 
Lá vai ter os CNAE's e Serviços que podem ser enviados.
Aqui deu certo depois desse ajuste. 

Consegui, usando o INDY.. 
 
    HttpClient := TIdHTTP.Create( nil );     HttpClient.ConnectTimeout := 20000;     HttpClient.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);     with TIdSSLIOHandlerSocketOpenSSL(HttpClient.IOHandler).SSLOptions do     begin       CertFile := [CaminhoCertificado.crt.pem]; //mudar caminho certificado aqui       KeyFile  := [CaminhoCertificado.key.pem]; //mudar caminho certificado aqui       Mode := sslmUnassigned;       SSLVersions := [sslvTLSv1_2]; //mudar protocolos de SSL aqui     end; with HttpClient do begin Request.CustomHeaders.Values['Content-Type'] := 'application/json; application/x-www-form-urlencoded;'; Request.ContentType := 'application/json'; Request.CharSet := 'utf-8'; Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; Acoo Browser; GTB5; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; Maxthon; InfoPath.1; .NET CLR 3.5.30729; .NET CLR 3.0.30618)'; HandleRedirects := True; HTTPOptions := [hoKeepOrigProtocol, hoInProcessAuth]; end; Body:= '[conteudo body]'; //mudar body aqui JsonToSend := TMemoryStream.Create; WriteStringToStream(JsonToSend, Body, IndyTextEncoding_UTF8); JsonToSend.Position := 0; sResponse := HttpClient.Post([URL],JsonToSend); //mudar URL aqui