bitmask

const bitmask: array [bitnumty] of LongWord = ($00000000, $00000001, $00000003, $00000007, $0000000f, $0000001f, $0000003f, $0000007f, $000000ff, $000001ff, $000003ff, $000007ff, $00000fff, $00001fff, $00003fff, $00007fff, $0000ffff, $0001ffff, $0003ffff, $0007ffff, $000fffff, $001fffff, $003fffff, $007fffff, $00ffffff, $01ffffff, $03ffffff, $07ffffff, $0fffffff, $1fffffff, $3fffffff, $7fffffff, $ffffffff);