BITCLS

function BITCLS(

  aVal: Byte;

  Index: TByteSize

):Byte;

function BITCLS(

  aVal: Word;

  Index: TWordSize

):Word;

function BITCLS(

  aVal: LongWord;

  Index: TDWordSize

):LongWord;

function BITCLS(

  aVal: QWord;

  Index: TQWordSize

):QWord;