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