function BSwap(const x: LongWord): LongWord; inline;
begin
  Result := (x shr 24) or
            ((x shr 8) and $0000ff00) or
            ((x shl 8) and $00ff0000) or
            (x shl 24);
end;