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:     function authoriseByOWinHttp(server, username, password : String): TJsonObject;
      procedure SetCertFile(const Value: String);
      procedure SetCertPWord(const Value: String);
      procedure SetUseIndy(const Value: boolean);  protected
      function Convert(stream : TStream) : TStream; virtual;
    public
      constructor Create(worker : TFHIRWorkerContext; url : String; json : boolean); overload;
  
negative.code:     indy.Request.UserName := UserName;
      indy.Request.Password := Password;
    end;
  
    if provenance <> nil then
      indy.Request.CustomHeaders.values['X-Provenance'] := resourceToString(Provenance, ffJson)
    else if indy.Request.CustomHeaders.IndexOfName('X-Provenance') > -1 then
      indy.Request.CustomHeaders.Delete(indy.Request.CustomHeaders.IndexOfName('X-Provenance'));
  
    ok := false;
    result := TMemoryStream.create;
  