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.