[Casimiro Noteví]

Mira esta página, creo que ahí tienes la solución

Y aquí un ejemplo sencillo, que en teoría funciona;

Código Delphi [-]
function SwapEndian(Value: integer): integer; register; overload;
asm
  bswap eax
end;

function SwapEndian(Value: smallint): smallint; register; overload;
asm
  xchg  al, ah
end;