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