Получение данных с сертификата

Uses Soap.Win.CertHelper;
function  Cert_info(Number:AnsiString);
var
   hStore : HCERTSTORE;
   PrevContext : PCERT_CONTEXT;
   pCert : PCERT_CONTEXT;
   SN,SB : _CRYPTOAPI_BLOB;
   Subject : String;
   pSubject : PChar;
   Size : longint;
   CERTHEX:String;
begin
  hStore := Soap.Win.CertHelper.CertOpenSystemStore(0,'MY');  //хранилище сертификатов.
  if not ((hStore<>Nil))
    then sError := 'Не найдено хранилище сертификатов'
    else 
      begin
      PrevContext := Nil;
      pCert := Soap.Win.CertHelper.CertEnumCertificatesInStore(hStore,PrevContext);
      while (pCert<>Nil) do 
        begin
        //сертификат в HEX.
        CertHEX='';
        if pCert.cbCertEncoded>0 then    
          for i:=0 to pCert.cbCertEncoded-1
            CertHEX:=CertHEX+sysutils.IntToHex(pCert.pbCertEncoded[i],2);
        //серийный номер
        SerialNumber := '';
        SN := pCert^.pCertInfo^.SerialNumber;
        if SN.cbData>0 then 
          for i:=SN.cbData-1 downto 0 do
            SerialNumber := SerialNumber+sysutils.IntToHex(SN.pbData[i],2);
        //субъект.
        Subject :='';
        SB := pCert^.pCertInfo^.Subject;
{      
        1. Если ли способ получить данные с адреса SB.pbData имеющего размер SB.сbData кроме ниже описанного?
}
{
        //нашел только такой способ получения данных.
        encType := PKCS_7_ASN_ENCODING or X509_ASN_ENCODING;
        pSubject := sysutils.StrAlloc(512);
        Size := Soap.Win.CertHelper.CertNameToStr(encType,@SB,CERT_X500_NAME_STR,pSubject,512);
        Subject=pSubject;
}      
{
        2. В каком поле хранится отпечаток сертификата?
}
        PrevContext := pCert;
        pCert := Soap.Win.CertHelper.CertEnumCertificatesInStore(hStore,PrevContext);
        end;
      Soap.Win.CertHelper.CertCloseStore(hStore,CERT_CLOSE_STORE_CHECK_FLAG);
      end;
end;