const
  CRL_STORE_NAME = 'CA';
  MY_ENCODING_TYPE = PKCS_7_ASN_ENCODING or X509_ASN_ENCODING;
  dwFlags = CERT_STORE_BASE_CRL_FLAG;
 . . .
var
  hCRLStore:HCERTSTORE;
  pCRLContext:PCCRL_CONTEXT;
  crlFindFlag:DWord;
  crlEntry: array of CRL_ENTRY;
  i:integer;
  nameBLOB: CERT_NAME_BLOB;
  nameString: PChar;
  size:DWORD;
begin
  try
    hCRLStore := CertOpenSystemStore( 0, PChar( CRL_STORE_NAME ));
    if ( not assigned( hCRLStore )) then
      Err( Format( 'Ошибка открытия хранилища': %s', [ CRL_STORE_NAME ] ));
    crlFindFlag:= dwFlags;

    pCRLContext:=CertGetCRLFromStore(hCRLStore,nil,nil, @crlFindFlag);
    if ( not assigned( pCRLContext )) then
      Err( Format( 'Ошибка получения CRL: %s', []));

    nameString := StrAlloc(512);
    nameBLOB:= pCRLContext.pCrlInfo.Issuer;
    size := CertNameToStr(MY_ENCODING_TYPE, @nameBlob, CERT_X500_NAME_STR, nameString, 512);
    if size > 1 then
      Memo.Lines.Add(nameString)
     else
      Memo.Lines.Add('Издатель не определен');

    SetLength(crlEntry,pCRLContext.pCrlInfo.cCRLEntry);
    crlEntry:= @pCRLContext.pCrlInfo.rgCRLEntry;
    for i:=0 to pCRLContext.pCRLInfo.cCRLEntry - 1 do begin
      Memo.Lines.Add('1. S/N='+DecodeSerialNumberNew(crlEntry[i].SerialNumber));
    end;
   //Memo.Lines.Add(IntToStr(pCRLContext.pCrlInfo.cCRLEntry));
   //Memo.Lines.Add('1. S/N='+DecodeSerialNumber(@pCRLContext.pCrlInfo.rgCRLEntry.SerialNumber));