// Способ первый
function BitOn(const Value: LongInt; const Bit: Byte): LongInt;
begin
   Result := Value or (1 shl Bit);
end;

// Способ второй
function BitOn(const Value: LongInt; const Bit: Byte): LongInt;
begin
   Result := Value or not ((1 shl Bit) xor $FFFFFFFF);
end;

// Способ первый
function BitOff(const Value: LongInt; const Bit: Byte): LongInt;
begin
   Result := Value and not (1 shl Bit);
end;

// Способ второй
function BitOff(const Value: LongInt; const Bit: Byte): LongInt;
begin
   Result := Value and ((1 shl Bit) xor $FFFFFFFF);
end;

function BitToggle(const Value: LongInt; const Bit: Byte): LongInt;
begin
   Result := Value xor (1 shl Bit);
end;

function IsBitSet(Value: Cardinal; Bit: Byte): Boolean;
begin
   Result := ((Value shr Bit) and 1) = 1;
   // Result := ((Value shr Bit) and 1) <> 0;
end;

// Циклический сдвиг двойного слова влево
function ROL_DWORD( Val: DWORD; Shift: Byte ): DWORD;
//asm
//   mov cl, dl
//   rol eax, cl
//end;
begin
   Result := ( Val shl Shift ) or ( Val shr ( 32 - Shift ) );
end;

// Циклический сдвиг слова влево
function ROL_WORD( Val: Word; Shift: Byte ): Word;
//asm
//   mov cl, dl
//   rol ax, cl
//end;
begin
   Result := ( Val shl Shift ) or ( Val shr ( 16 - Shift ) );
end;

// Циклический сдвиг байта влево
function ROL_BYTE( Val: Byte; Shift: Byte ): Byte;
//asm
//   mov cl, dl
//   rol al, cl
//end;
begin
   Result := ( Val shl Shift ) or ( Val shr ( 8 - Shift ) );
end;


// Циклический сдвиг двойного слова вправо
function ROR_DWORD( Val: DWORD; Shift: Byte ): DWORD;
//asm
//   mov cl, dl
//   ror eax, cl
//end;
begin
   Result := ( Val shr Shift ) or ( Val shl ( 32 - Shift ) );
end;

// Циклический сдвиг слова вправо
function ROR_WORD( Val: Word; Shift: Byte ): Word;
//asm
//   mov cl, dl
//   ror ax, cl
//end;
begin
   Result := ( Val shr Shift ) or ( Val shl ( 16 - Shift ) );
end;

// Циклический сдвиг байта вправо
function ROR_BYTE( Val: Byte; Shift: Byte ): Byte;
//asm
//   mov cl, dl
//   ror al, cl
//end;
begin
   Result := ( Val shr Shift ) or ( Val shl ( 8 - Shift ) );
end;

procedure SwapEndiannessOfBits(var Value: Cardinal);
var
  tmp: Cardinal;
  i: Integer;
begin
   tmp := 0;
   for i := 0 to 8*SizeOf(Value)-1 do
      Inc(tmp, ((Value shr i) and $1) shl (8*SizeOf(Value)-i-1));
   Value := tmp;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  c: Cardinal;
begin
   c := $AAAAAAAA; // => $55555555
   // 10101010101010101010101010101010 => 01010101010101010101010101010101
   SwapEndiannessOfBits(c);
   ShowMessage(IntToHex(c, 8));
end;

// Способ первый
procedure SwapEndiannessOfBytes(var Value: Cardinal);
var
  tmp: Cardinal;
  i: Integer;
begin
  tmp := 0;
  for i := 0 to SizeOf(Value)-1 do
    Inc(tmp, ((Value shr (8*i)) and $FF) shl (8*(SizeOf(Value)-i-1)));
  Value := tmp;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  c: Cardinal;
begin
  c := $AABBCCDD; // => $DDCCBBAA
  // 10101010|10111011|11001100|11011101 => 11011101|11001100|10111011|10101010
  SwapEndiannessOfBytes(c);
  ShowMessage(IntToHex(c, 8));
end;

// Способ второй
procedure Swp(var Value: LongWord); assembler;
asm
   mov edx, [Value]
   bswap edx
   mov [Value], edx
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Val: Cardinal;
begin
   Val := $AABBCCDD; // => $DDCCBBAA
   // 10101010|10111011|11001100|11011101 => 11011101|11001100|10111011|10101010
   Swp(Val);
   ShowMessage(IntToHex(Val, 8));
end;