Nosotros los añadimos así:
Código Delphi
[-]
CompEnvioRESTClient.Accept := 'application/json, text/plain; q=0.9, text/html;q=0.8,';
CompEnvioRESTClient.AcceptCharset := 'utf-8, *;q=0.8';
CompEnvioRESTClient.AddParameter('Accept-Encoding', 'gzip', pkHTTPHEADER);
CompEnvioRESTClient.AddParameter('Content-Encoding', 'gzip', pkHTTPHEADER);
CompEnvioRESTClient.AddParameter('Content-Type', 'application/octet-stream', pkHTTPHEADER, [poDoNotEncode]);
CompEnvioRESTClient.AddParameter('eus-bizkaia-n3-version', '1.0', pkHTTPHEADER);
CompEnvioRESTClient.AddParameter('eus-bizkaia-n3-content-type', 'application/xml', pkHTTPHEADER, [poDoNotEncode] );
CompEnvioRESTClient.AddParameter('eus-bizkaia-n3-data', JSON, TRESTRequestParameterKind.pkHTTPHEADER, [poDoNotEncode]);
Y es resultado es este:
Código Delphi
[-]
Accept-Encoding=gzip
Content-Encoding=gzip
Content-Type=application/octet-stream
eus-bizkaia-n3-version=1.0
eus-bizkaia-n3-content-type=application/xml
eus-bizkaia-n3-data=,"drs":}