anchor.diff:      procedure Configure;
   
       procedure CopyResourceStreamToStream(AResponse: TStream);
  +    function ProxyActive: Boolean;
  +    function GetProxyServer: string;
     public
       OnConnectionLost: THTTPConnectionLostEvent;
       OnError: THTTPErrorEvent;
  
positive.code: var
    i: Integer;
  begin
    FWinHttpRequest.SetTimeouts(0, 60000, 300000, 300000);
  
    if FAcceptTypes <> EmptyStr then
      FWinHttpRequest.SetRequestHeader('Accept', FAcceptTypes);
  
  
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;
  