bool b1 = true; bool b2 = true; Cardinal FlagVal =0;
FlagVal = b2 <<1; FlagVal = FlagVal | b1; Cardinal f1 = FlagVal;
bool b3 = f1 & 1; bool b4 = (f1 >> 1) & 1 ;
bool b5 = b3; bool b6l = b4;