1:
2:
3:
4:
5:

var
  B: Boolean;
begin
  ShowMessage(IntToStr(SizeOf( B )));
end;					

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

const
 bit1 = 1;
 bit2 = 2;
 bit3 = 4;
 bit4 = 8;
 bit5 = 16;
 bit6 = 32;
 bit7 = 64;
 bit8 = 128;

type
 mbool = byte;

var
 fbool: mbool;

// Jetzt kannst du bits setzen:

fbool := fbool or bit1; // Bit gesetzt

// Oder löschen

fbool := fbool and not bit1; // Bit gelöscht