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