.....
uses wcrypt2, wincryptex;
.....

function BinaryToHex( const sStr : String ) : String;
const
  Convert: array[0..15] of Char = '0123456789ABCDEF';
var
  ii : Integer;
begin
  SetLength( Result, Length( sStr ) * 2 );
  for ii := 1 to Length( sStr ) do
  begin
    Result[ ii * 2 - 1 ] := Convert[ Byte( sStr[ ii ]) shr 4 ];
    Result[ ii * 2 ] := Convert[ Byte( sStr[ ii ]) and 15 ];
  end;
end;

//Функция получения хэш-вектора файла.

function Hash(FileName: string; AHashAlg, ABlockSize: DWORD ): AnsiString;
var
  hHash : HCRYPTHASH;
  hProvider : HCRYPTPROV;
  dwHashSize, dwSize : DWORD;
  AStream: TMemoryStream;
begin
  Win32Check(CryptAcquireContext(@hProvider, nil, PChar(CP_GR3410_2001_PROV_A),
    PROV_GOST_2001_DH, CRYPT_VERIFYCONTEXT));
  try
    AStream := TMemoryStream.Create;
    AStream.LoadFromFile(FileName);
    Win32Check( CryptCreateHash(hProvider, AHashAlg, 0, 0, @hHash));
    try
      Win32Check(CryptHashData( hHash, AStream.Memory, AStream.Size, 0));

      dwSize := SizeOf( dwHashSize );
      Win32Check( CryptGetHashParam( hHash, HP_HASHSIZE, @dwHashSize, @dwSize, 0 ));
      SetLength( Result, dwHashSize );
      Win32Check( CryptGetHashParam( hHash, HP_HASHVAL, @Result[1], @dwHashSize, 0));
    finally
      Win32Check(CryptDestroyHash(hHash));
    end;
  finally
    Win32Check( CryptReleaseContext(hProvider, 0));
    AStream.Free;
  end;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
var
  sHash: string;
begin
  sHash := BinaryToHex(Hash('C:\1\00D0U841.doc', CALG_GR3411));
  ShowMessage(sHash);
end;