function HexStrToInt(sHex: string): int64;        //轉換十六進制字符串到整型數值
var
  I: Integer;
begin
  Result := 0;                                    //設置缺省返回值

  for I := 1 to Length(sHex) do                   // Iterate
    Result := Result * 256 + ord(sHex[I]);
end;