Не хеширует правильно, не могли бы помочь.
Хэш-значение не совпадает с тестовыми данными.

Код:
if (not CryptAcquireContext(@hProv,
nil, nil, PROV_GOST_2001_DH , CRYPT_VERIFYCONTEXT))
then
begin

ShowMessage('Èíèöèàëèçàöèÿ êîíòåêñòà êðèïòîïðîâàéäåðà íå âûïîëíåíà= '+
IntToStr(GetLastError));
exit;
end;
if(not CryptCreateHash(hProv, CALG_GR3411, 0, 0, @hHash))
then
begin
ShowMessage('Cîçäàíèå õåø-îáúåêòà íå óäàëîñü'+
IntToStr(GetLastError));
exit;
end;
ShowMessage('Hash created');
pbt:=pbyte(edit5.Text);
if(not CryptHashData(hHash, pbt, length(edit5.Text), 0))
then
begin
ShowMessage('Ïåðåäà÷à õåøèðóåìûõ äàííûõ õýø-îáúåêòó íå óäàëàñü');
exit;
end;
ShowMessage('Hash data loaded');
hash_size :=0;
pcount := pointer(64);
if(not CryptGetHashParam(hHash, HP_HASHVAL, pbyte(hash_size), @pcount, 0))
then
begin
ShowMessage('Ïîëó÷èòü õåø-çíà÷åíèÿ íå óäàëîñü'+
IntToStr(GetLastError));
exit;
end;

if(not CryptGetHashParam(hHash, HP_HASHVAL, pbyte(@aByte), @pcount, 0))
then
begin
ShowMessage('Ïîëó÷èòü õåø-çíà÷åíèÿ íå óäàëîñü2');
exit;
end;

ShowMessage('Hash value is received');
ShowMessage('Hash value:');

edit4.Text:= '';
for j:=1 to 64 do
begin
edit4.Text:=edit4.Text +inttohex(byte(aByte[j]), 1);
end;

CryptDestroyHash(hHash);

end;