const
  // K: это диск флешки (пробовал и диск HDD).
  MY_CONTAINER = 'K:\EDS_DEMO';
  CRYPTO_PROVIDER = 'Microsoft Enhanced Cryptographic Provider v1.0';

var
  hProv      :HCRYPTPROV;
  hSignKey   :HCRYPTKEY;
  dwFlags    :DWORD;

 Win32Check(CryptAcquireContext(hProv, MY_CONTAINER, CRYPTO_PROVIDER, PROV_RSA_FULL, CRYPT_NEWKEYSET))

 dwFlags := (1024 shl 16) or CRYPT_EXPORTABLE;

 Win32Check(CryptGenKey(hProv, AT_SIGNATURE, dwFlags, hSignKey));

 Win32Check(CryptDestroyKey(hSignKey));
 Win32Check(CryptReleaseContext(hProv, 0));