anchor.diff:      function GetResponse: TIdHTTPResponse;
       function GetConnectTimeout: Integer;
       function GetReadTimeout: Integer;
  +    function GetProxyParams: TIdProxyConnectionInfo;
       procedure SetConnectTimeout(const Value: Integer);
       procedure SetReadTimeout(const Value: Integer);
  +    procedure SetProxyParams(const Value: TIdProxyConnectionInfo);
     protected
       procedure DoBeforeCommand;
   {$ifdef DelphiXE7_UP}
  
positive.code:   Result := FHttpClient.ReadTimeout;
  end;
  
  function TWiRLClient.GetRequest: TIdHTTPRequest;
  begin
    Result := FHttpClient.Request;
  
negative.code:   System.Threading,
  {$endif}
  
    IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
    IdHTTPHeaderInfo;
  
  type
    TBeforeCommandEvent = procedure (ASender: TObject; ARequest: TIdHTTPRequest) of object;
  