[PhoeniX]

HexToInt можно сделать намного проще (IMHO)...

Код:

function HexToInt(HexValue: string): Integer;
begin
  Result:=StrToInt('$'+HexValue);
end;

function HexToInt64(HexValue: string): int64;
begin
  Result:=StrToInt64('$'+HexValue);
end;