You can also use enums for bit manipulation:

[pascal]

type
TBitEnum = set of (bit0,bit1,bit2,bit3,bit4,bit5,bit6,bit7);

var
TestBitEnum : TBitEnum

procedure Test;
begin
TestBitEnum := [bit1,bit2,bit7];
if (bit1 in TestBitEnum) then
begin
MessageBox(0,PChar('Bit 1 Set'),PChar(''),0);
end;
end;

[/pascal]

Obviously setting the number of entries in the bit mask to whatever you want. This method evidently will work horribly if you're using bit array manipulation stuff But for the walk/not walk flags, its viable [/pascal]