Shift right (shr) performs a right bit-shift operation (opposite than shl).
function isBitSet(AValue, ABitNumber:integer):boolean; begin result:=odd(AValue shr ABitNumber); end;