Shr

Shift right (shr) performs a right bit-shift operation (opposite than shl).

[edit] Is a bit set

 
function isBitSet(AValue, ABitNumber:integer):boolean;
begin
   result:=odd(AValue shr ABitNumber);
end;