Na dann eben Inlining betreiben.
Delphi-Quellcode:
const
BitMask: array [0..31] of Cardinal =
($00000001, $00000002, $00000004, $00000008,
// den Rest mach selber
);
begin
// Bit testen
if (Value and BitMask[Index]) <> 0 then
// Bit Setzen
Value := Value or BitMask[Index];
// Bit ruecksetzen
Value := Value and not BitMask[Index];