OpenDlg.Title := 'Укажите файл с открытым ключом обмена ключами получателя';
    if OpenDlg.Execute then begin
       AssignFile(outfile, OpenDlg.FileName);
       reset(outfile, 1);
       keyLen := FileSize(outfile);
       GetMem(tmp, keyLen);
       BlockRead(outfile, tmp^, keyLen);
       CloseFile(outfile);
    end else exit;

  hCertStoreHandle := CertOpenSystemStore( 0, PWideChar( CERT_STORE_NAME ));
  if ( not assigned( hCertStoreHandle )) then
    Err( Format( 'Ошибка при открытии хранилища: %s', [ CERT_STORE_NAME ] ));
  try
    pSignerCert  := CertFindCertificateInStore( hCertStoreHandle, encType, 0, CERT_FIND_SUBJECT_STR, PWideChar( SignerNameOper ), nil );
    try
      if ( not assigned( pSignerCert )) then
        Err( Format( 'Сертификат %s не найден', [ SignerName ] ));
      keyLen := pSignerCert^.pCertInfo^.SubjectPublicKeyInfo.PublicKey.cbData;
      GetMem(tmp, keyLen);
      Move(pSignerCert^.pCertInfo^.SubjectPublicKeyInfo.PublicKey.pbData^, tmp^, keyLen);
    finally
      CertFreeCertificateContext(pSignerCert);
    end;
  finally
    CertCloseStore( hCertStoreHandle, CERT_CLOSE_STORE_CHECK_FLAG );
  end;

    if not CryptImportKey(hProv, tmp, keyLen, 0, 0, KeyExchKey) then begin
       Err('Ошибка импорта ключа: ');
       exit;
    end;