anchor.diff:  var
     i: Integer;
   begin
  -  FWinHttpRequest.SetTimeouts(0, 60000, 300000, 300000);
  -
     if FAcceptTypes <> EmptyStr then
       FWinHttpRequest.SetRequestHeader('Accept', FAcceptTypes);
   
  
positive.code:   result := OnError;
  end;
  
  function THttpConnectionWinHttp.GetResponseCode: Integer;
  begin
    Result := FWinHttpRequest.Status;
  
negative.code:     procedure Configure;
  
      procedure CopyResourceStreamToStream(AResponse: TStream);
      function ProxyActive: Boolean;
      function GetProxyServer: string;
    public
      OnConnectionLost: THTTPConnectionLostEvent;
      OnError: THTTPErrorEvent;
  