anchor.diff:      function authoriseByOWinHttp(server, username, password : String): TJsonObject;
       procedure SetCertFile(const Value: String);
       procedure SetCertPWord(const Value: String);
  -    procedure SetUseIndy(const Value: boolean);  protected
  +    procedure SetUseIndy(const Value: boolean);
       function Convert(stream : TStream) : TStream; virtual;
     public
       constructor Create(worker : TFHIRWorkerContext; url : String; json : boolean); overload;
  
positive.code:   if ct <> '' then
      http.RequestType := ct;
  
    if password <> '' then
    begin
      http.Username := username;
  
negative.code:   http.Free;
    http := nil;
    {$ENDIF}
  end;
  
  procedure TFhirClient.SetProvenance(const Value: TFhirProvenance);
  begin
    FProvenance.Free;
    FProvenance := Value;
  end;
  
  procedure TFhirHTTPClient.SetSmartToken(const Value: TSmartOnFhirAccessToken);
  