anchor.diff:  
   function TWiRLClient.ResponseText: string;
   begin
  +  CreateHttpClient;
     Result := FHttpClient.Response.ReasonString;
   end;
   
  
positive.code: 
  function TWiRLClient.GetClientImplementation: TObject;
  begin
    Result := FHttpClient.ClientImplementation;
  end;
  
  function TWiRLClient.GetRequest: TWiRLRequest;
  begin
    Result := FHttpClient.Request;
  end;
  
  function TWiRLClient.GetResponse: TWiRLResponse;
  begin
    Result := FHttpClient.Response;
  end;
  
  
negative.code:     procedure DoBeforeCommand; virtual;
      procedure DoAfterCommand; virtual;
      procedure CheckResponse;
  {$IFDEF HAS_SYSTEM_THREADING}
      property WorkerTask: ITask read FWorkerTask;
  {$ENDIF}
  