[Gem Single]

procedure swp(var Value: LongWord); assembler;
asm
bswap [eax]
end;