anchor.diff:    FCertificateCheckDate := Value;
     FCertificateCheckAuthority := Value;
     FCertificateCheckHostName := Value;
  +  FCertificateIgnoreRevocation := Value;
   end;
   
   procedure THttpConnectionWinInet.DoRequest(sMethod, AUrl: string; AContent,
  
positive.code:                           raise EHTTPVerifyCertError.Create('SSL certificate common name (host name field) is incorrect.');
                          ERROR_INTERNET_SEC_CERT_DATE_INVALID:
                            raise EHTTPVerifyCertError.Create('SSL certificate date that was received from the server is bad. The certificate is expired.');
                          ERROR_INTERNET_CANNOT_CONNECT,
                          ERROR_INTERNET_CONNECTION_ABORTED,
                          ERROR_INTERNET_CONNECTION_RESET:
  
negative.code: function THttpConnectionWinInet.GetVerifyCert: boolean;
  begin
    result := FCertificateCheckDate and FCertificateCheckAuthority and
      FCertificateCheckHostName and FCertificateIgnoreRevocation;
  end;
  
  function THttpConnectionWinInet.GetResponseHeader(const Header: string): string;
  