anchor.diff:    end;
   begin
     if FJson then
  -begin
  +  begin
       http.RequestType := 'application/fhir+json; charset=utf-8';
       http.ResponseType := 'application/fhir+json; charset=utf-8';
     end
  
positive.code:   TFhirClient = {abstract} class (TAdvObject)
    private
      FLastURL: String;
    public
      function link : TFhirClient; overload;
  
      function conformance(summary : boolean) : TFhirCapabilityStatement; virtual;
      function transaction(bundle : TFHIRBundle) : TFHIRBundle; virtual;
  
negative.code:   if ct <> '' then
      http.RequestType := ct;
  
    if provenance <> nil then
      http.Headers['X-Provenance'] := resourceToString(Provenance, ffJson)
    else
      http.Headers.Remove('X-Provenance');
  
    if password <> '' then
    begin
      http.Username := username;
  