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;
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;