Four simple bitwise operations as Pascal functions.

1. function GetBit(const Val: DWord; const BitVal: Byte): Boolean;
2. begin
3.         Result := (Val and (1 shl BitVal)) <> 0;
4. end;
6. function SetBit(const Val: DWord; const BitVal: Byte): DWord;
7. begin
8.         Result := Val or (1 shl BitVal);
9. end;
11. function EnableBit(const Val: DWord; const BitVal: Byte; const SetOn: Boolean): DWord;
12. begin
13.         Result := (Val or (1 shl BitVal)) xor (Integer(not SetOn) shl BitVal);
14. end;
16. function ClearBit(const Val: DWord; const BitVal: Byte): DWord;
17. begin
18.         Result := Val and not (1 shl BitVal);
19. end;