anchor.diff:    end;
   
     repeat
  -  http.SetAddress(url);
  -  ok := false;
  +    http.SetAddress(url);
  +    ok := false;
         case verb of
           get :
             begin
  
positive.code:   http.Free;
    http := nil;
    {$ENDIF}
  end;
  
  procedure TFhirHTTPClient.SetSmartToken(const Value: TSmartOnFhirAccessToken);
  
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;
  