procedure TForm1.Button9Click(Sender: TObject);
var
  cbDecryptedMessage : DWORD;
  my : HCERTSTORE; //?????????
  enctype : cardinal; //?????? ??????
  hProv : HCRYPTPROV;
  DecryptParams : CRYPT_DECRYPT_MESSAGE_PARA;
  DecryptParamsSize : DWORD;
  memstr, pStreamOut: TMemoryStream;
  MessageSize: DWORD;
  MessageOutSize : DWORD;
  ppXchgCert : PCCERT_CONTEXT;
  MessageArrayOut : PByte;
  pSignerCert: PCCERT_CONTEXT;
  hProv1: HCRYPTPROV;
  pSignerName: PWideChar;
  pdwKeySpec : DWORD;
  sdf:string;
begin
 my := CertOpenSystemStore(0, 'MY');
  FillChar(DecryptParams, SizeOf(CRYPT_DECRYPT_MESSAGE_PARA), #0);
  DecryptParamsSize := SizeOf(CRYPT_DECRYPT_MESSAGE_PARA);
  ZeroMemory( @DecryptParams, SizeOf( CRYPT_DECRYPT_MESSAGE_PARA ));
  DecryptParams.cbSize := DecryptParamsSize;
  DecryptParams.dwMsgAndCertEncodingType := PKCS_7_ASN_ENCODING or X509_ASN_ENCODING;
  DecryptParams.rghCertStore := @my;
  DecryptParams.cCertStore := 1;

  memstr := TMemoryStream.Create;
  memstr.LoadFromFile(spc2);
  MessageSize := memstr.Size;

  pStreamOut := TMemoryStream.Create;

  if not CryptDecryptMessage(
    @DecryptParams,
    memstr.Memory,
    MessageSize,
    nil,
    @MessageOutSize,
    nil)
    then
  begin
    Showmessage('Îøèáêà1: ' + inttostr(getlasterror));
    Exit;
  end;
 pStreamOut.SetSize(MessageOutSize);
 //Showmessage(inttostr(MessageOutSize));
 //tMem(MessageArrayOut, MessageOutSize);
  if not CryptDecryptMessage(
    @DecryptParams,
     memstr.Memory,
    MessageSize,
    pStreamOut.Memory,
    @MessageOutSize,
    nil)
    then
  begin
    Showmessage('Îøèáêà2: ' + inttostr(getlasterror));
    Exit;
  end
  else
  begin
    pStreamOut.SetSize(MessageOutSize);
    pStreamOut.SaveToFile( makeout(spc2));
    Showmessage('Ðàñøèôðîâàí');
  end;
  FreeAndNil(memstr);
  FreeAndNil(pStreamOut);
  CertCloseStore( my, CERT_CLOSE_STORE_CHECK_FLAG );
  spc2:='';
  label5.Caption:='';
  label5.Refresh;
  button9.Enabled:=false;


end;