StringToHex might not return a result
by 'lagprogramming'.
packages/fcl-hash/src/fphashutils.pp has the following function
function StringToHex(const s: ansistring): ansistring;
begin
if s='' then exit;
BytesToHexStr(Result,@s[1],length(s));
end;
The code of this function might not assign a result.