BITVAL

function BITVAL(

  aVal: Byte;

  Index: TByteSize

):Boolean;

function BITVAL(

  aVal: Word;

  Index: TWordSize

):Boolean;

function BITVAL(

  aVal: LongWord;

  Index: TDWordSize

):Boolean;

function BITVAL(

  aVal: QWord;

  Index: TQWordSize

):Boolean;