function TForm1.RevWord(AInput: Word): Word;
var
C1,C2:array[0..1] of char;
begin
{--------------------------------------------------------------------
将2字节整数倒一下字节顺序
------------------------------------------------------------------------}
Move(AInput,C1,SizeOf(C1));
C2[0]:=C1[1];
C2[1]:=C1[0];
Result:=Word(C2);
end;

function TForm1.RevLongWord(AInput: LongWord): LongWord;
var
C1,C2:array[0..3] of Char;
i:Integer;
begin
{--------------------------------------------------------------------
将四字节整数倒一下字节顺序
------------------------------------------------------------------------}
Move(AInput,C1,SizeOf(C1));
for i:=3 downto 0 do
begin
C2[3-i]:=C1[i];
end;
Result:=LongWord(C2);
end;