function GetCertSubjectAttr(Cert: PCCERT_CONTEXT): String;
var
  i: Integer;
  pvStructInfo: PVOID;
  cbStructInfo: DWORD;
  pCertNameInfo: PCERT_NAME_INFO;
  vRDNAttr: PCERT_RDN_ATTR;
  psz: array of WideChar; // Заменяем на массив
  RDNValueSize, RDNValueSizeRead: DWORD;
  pInfo: PCCRYPT_OID_INFO;
  S: string;
begin
  Result := '';
  // декодируем Subject
  if CryptDecodeObject(
    X509_ASN_ENCODING or PKCS_7_ASN_ENCODING,
    X509_UNICODE_NAME, //X509_NAME,
    Cert.pCertInfo.Subject.pbData,
    Cert.pCertInfo.Subject.cbData,
    CRYPT_DECODE_NOCOPY_FLAG,
    nil,
    cbStructInfo
  )
  then
  begin
    GetMem(pvStructInfo, cbStructInfo);
    try
      CryptDecodeObject(
        X509_ASN_ENCODING or PKCS_7_ASN_ENCODING,
        X509_UNICODE_NAME, //X509_NAME,
        Cert.pCertInfo.Subject.pbData,
        Cert.pCertInfo.Subject.cbData,
        CRYPT_DECODE_NOCOPY_FLAG,
        pvStructInfo,
        cbStructInfo
      );

      pCertNameInfo := PCERT_NAME_INFO(pvStructInfo);

      // перебираем массив атрибутов Subject-а
      for i := 0 to (pCertNameInfo.cRDN-1) do
      begin
        vRDNAttr := CERT_RDN_ARRAY(pCertNameInfo.rgRDN)[i].rgRDNAttr;
//        RDNValueSize := CertRDNValueToStr(vRDNAttr.dwValueType, @vRDNAttr.Value, nil, 0);
        RDNValueSize := CertRDNValueToStr(CERT_RDN_UNICODE_STRING, @vRDNAttr.Value, nil, 0);
        if RDNValueSize > 0 then
        begin
          SetLength(psz, RDNValueSize); // Выделяем память таким образом, потому что при использовании GetMem|FreeMem в конце концов ловим ошибку.
          try
            RDNValueSizeRead := CertRDNValueToStr(CERT_RDN_UNICODE_STRING, @vRDNAttr.Value, @psz[0], RDNValueSize);
            pInfo := CryptFindOIDInfo(CRYPT_OID_INFO_OID_KEY, PChar(vRDNAttr.pszObjId), 0);
            if Result <> '' then
              Result := Result + sLineBreak;
            if Assigned(pInfo) then
            begin
              S := WideCharToString(pInfo.pwszName);
              Result := Result + S + '=';
            end;
            S := WideCharLenToString(@psz[0], RDNValueSizeRead);
            Result := Result + S;
          finally
            pInfo := nil;
            SetLength(psz, 0);
          end;
        end;
      end;
    finally
      FreeMem(pvStructInfo, cbStructInfo);
    end;
  end;
end;

var
 psz: PWideChar;
 RDNValueSize: DWORD;
begin
  RDNValueSize := n; 
  GetMem(psz, RDNValueSize * SizeOf(WideChar));
  FreeMem(psz);
end