Da Sets in Delphi über Bits realisiert sind, geht's auch sehr schön so:
Delphi-Quellcode:
type
T32Bits = set of 0..31;
var
i: Integer;
// ...
if 15 in T32Bits(i) then ShowMessage('Bit 15 ist gesetzt');
Include(T32Bits(i), 4); // setze Bit 4 auf 1
// andere Set-Operationen funktionieren natürlich auch