function bswap(AInput: LongWord): LongWord;
asm
mov eax, AInput
bswap eax
end

function bswap(AInput: Word): Word
asm
mov ax, AInput
ror ax, 8
end;