КриптоПРО CSP: 3.6.4070 КС2

При попытке CryptEncrypt возникает ошибка 0x80090020. Если использую PROV_RSA_FULL, то все OK. Почему такое может быть?

Вот кусок кода:

if not CryptAcquireContext(@hProv, UserName, nil, PROV_GOST_2001_DH, 0) then
begin
err := GetLastError;
if err = NTE_BAD_KEYSET then
begin
if not CryptAcquireContext(@hProv, UserName, nil, PROV_GOST_2001_DH, CRYPT_NEWKEYSET) then
begin
err := GetLastError;
end else
err := 0;
end;
if err <> 0 then
raise Exception.Create('Error 0x'+IntToHex(err, 8)+' ('+IntToStr(err)+') at CryptAcquireContext');
end;

if not CryptGetUserKey(hProv, AT_KEYEXCHANGE, @hSessKey) then
begin
err := GetLastError;
if err = NTE_NO_KEY then
begin
if not CryptGenKey(hProv, AT_KEYEXCHANGE, 0, @hSessKey) then
begin
err := GetLastError;
end else
err := 0;
end;
if err <> 0 then
raise Exception.Create('Error 0x'+IntToHex(err, 8)+' ('+IntToStr(err)+') at CryptGetUserKey/CryptGetUserKey');
end;

//в bufMsg - сообщение, размер буфера - 1024
dwMsgLen := StrLen(@bufMsg)+1;

//вот тут - ошибка 0x80090020
if not CryptEncrypt(hSessKey, 0, True, 0, @bufMsg, @dwMsgLen, 1024) then
begin
err := GetLastError;
raise Exception.Create('Error 0x'+IntToHex(err, 8)+' ('+IntToStr(Integer(err))+') at step 1');
end;