anchor.diff:                                FConnectTimeout,
                                 FSendTimeout,
                                 FReceiveTimeout);
  +
  +  if ProxyActive then
  +    FWinHttpRequest.SetProxy(2, GetProxyServer, '');
   end;
   
   function THttpConnectionWinHttp.ConfigureTimeout(const ATimeOut: TTimeOut): IHttpConnection;
  
positive.code:     procedure Configure;
  
      procedure CopyResourceStreamToStream(AResponse: TStream);
    public
      OnConnectionLost: THTTPConnectionLostEvent;
      OnError: THTTPErrorEvent;
  
negative.code:   CopyResourceStreamToStream(AResponse);
  end;
  
  function THttpConnectionWinHttp.ProxyActive: Boolean;
  var
    Reg: TRegistry;
  begin
    try
      Reg := TRegistry.Create;
      try
        Reg.RootKey := HKEY_CURRENT_USER;
        Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings', false);
        Result := Reg.ReadInteger('ProxyEnable') = 1;
      finally
        Reg.Free;
      end;
    except
      on E: ERegistryException do
        Result := false;
    end;
  end;
  
  procedure THttpConnectionWinHttp.Put(AUrl: string; AContent,AResponse: TStream);
  var
    vAdapter: IStream;
  