anchor.diff:    end;
   
     TFhirClient = {abstract} class (TAdvObject)
  +  private
  +    FLastURL: String;
     public
       function link : TFhirClient; overload;
   
  
positive.code:     procedure terminate; virtual;
      function address : String; virtual;
      function format : TFHIRFormat; virtual;
    end;
  
    TFhirHTTPClientHTTPVerb = (get, post, put, delete, options, patch);
  
negative.code: function TFhirHTTPClient.exchange(url : String; verb : TFhirHTTPClientHTTPVerb; source : TStream; ct : String = '') : TStream;
  begin
    createClient;
    LastURL := url;
    if FUseIndy then
      result := exchangeIndy(url, verb, source, ct)
    {$IFDEF MSWINDOWS}
  