dephi 定义问题

Question

var 
FID:integer=high(word); 
.... 
函数部分 
Result := IntToHex(MakeLong(LoWord(LoWord(ID) xor (5678 * FID)), LoWord(HiWord(ID) xor (1234 * FID))), 8) 
ID为硬盘物理序列号FID的定义 什么意思？
makelong 函数实现的合字节最终是什么意思？求助下大家了，谢谢。。谢谢

Answer 1

FID:integer=high(word); 取word数组最大的下标

Answer 2

FID:integer=high(word);
定义FID为整型变量，且默认值是Word型数值的最大值（65535）

Answer 3

makelong 函数实现的合字节最终是什么意思？ 
其实就是一个加密的过程,没有实现的逻辑意思。