wrong cycle in SysUtils.HashName code
function HashName from unit SysUtils (file rtl\objpas\sysutils\sysansi.inc) have wrong cycle limits. it have header Function HashName(Name: PAnsiChar): LongWord; but cycle: For I:=1 to Length(Name) do { 0 terminated } but Name index must be start from 0 and finish (preferable) by Length-1 That only case when algorithm will be the same (Except letter case) as function Hash from file rtl\objpas\objpas.pp