1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

type
  TBitArray = array[0..7] of Boolean;

var
  b: Byte;
  Bits: TBitArray;
begin
  GetBits(Bits, b);
  Bits[0] := False;
  Bits[1] := True;
  b := SetBits(Bits);
end;

function SetBits(const Bits: TBitArray): Byte;
var i: Integer;
begin
  Result := 0;
  for i := 0 to High(Bits) do
    if Bits[i] then
      Result := Result or 1 shl i;
end;

procedure GetBits(var Bits: TBitArray; Value: Byte);
var i: Integer;
begin
  for i := 0 to High(Bits) do
    Bits[i] := Value and (1 shl i) <> 0;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

// einen set-typ erstllen, da sets nicht weiter als'n paar bits sind!
type TBitSet = set of (bit0, bit1, bit2, bit3, bit4, bit5, bit6, bit7);

var b:byte;
...

  TBitSet(b) := [bit1,bit4,bit5]; // ein byte aus bits 'formen'
  //...
  ShowMessage('byte: '+IntToStr(b));
  //...
  if bit4 in TBitSet(b) then ShowMessage('Juhuu! bit4'); // auf bits testen!

  if TBitSet(b) = [bit0,bit7] then ShowMessage('lol'); // exakt prüfen
  // mehrere bits hinzufügen -> es gelten alle set operatoren(+-*<=>= etc.)
  TBitSet(b) := TBitSet(b) + [bit0, bit3];
  //..
  ShowMessage('byte jetzt: '+IntToStr(b));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

uses typInfo;
...
TIntSet = set of 0..SizeOf(Integer) * 8 - 1;
...
function SetToStr(SetTypeInfo:PTypeInfo;value:integer;Brackets:boolean=true):string;
var
  S: TIntSet;
  TypeInfo: PTypeInfo;
  compTypeDate: PTypeData;
  I: Integer;
begin
  Result := '';
  Integer(S) := Value;
  TypeInfo := GetTypeData(SetTypeInfo)^.CompType^;
  compTypeDate := GetTypeData(TypeInfo);
  for I := compTypeDate.MinValue to compTypeDate.MaxValue do
    if I in s then
    begin
      if Result <> '' then
        Result := Result + ',';
      Result := Result + GetEnumName(TypeInfo, I);
    end;
  if Brackets then Result := '[' + Result + ']';
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var
  Bit0, Bit1, Bit2, Bit3, Bit4, Bit5, Bit6, Bit7: Boolean;
  bByte: Byte;
begin
  bByte := //Hier ist also Dein Byte...
  if (bByte and 1) <> 0 then Bit0 := True;
  if (bByte and 2) <> 0 then Bit1 := True;
  if (bByte and 4) <> 0 then Bit2 := True;
  if (bByte and 8) <> 0 then Bit3 := True;
  if (bByte and 16) <> 0 then Bit4 := True;
  if (bByte and 32) <> 0 then Bit5 := True;
  if (bByte and 64) <> 0 then Bit6 := True;
  if (bByte and 128) <> 0 then Bit7 := True;
end;