Возможно, самым простым является это:
function HexStrToInt(const str: string): Integer; begin Result := StrToInt('$' + str); end;