* Fix compilation of example. Fixes issue #40715

packages/fcl-hash/examples/demosha256.pp

@@ -27,11 +27,11 @@ var
 begin
   aSource:='abc';
   S:=TEncoding.UTF8.GetAnsiBytes(aSource);
-  SHA256Hexa(S, Digest);
+  TSHA256.DigestHexa(S, Digest);
   if (Digest<> 'BA7816BF8F01CFEA414140DE5DAE2223B00361A396177A9CB410FF61F20015AD') then
     raise Exception.Create('ERR_SHA256');
   SetLength(S,0);
-  SHA256Hexa(S, Digest);
+  TSHA256.DigestHexa(S, Digest);
   if (Digest<> 'E3B0C44298FC1C149AFBF4C8996FB92427AE41E4649B934CA495991B7852B855') then
     raise Exception.Create('ERR_SHA256');
 end;