clearbit

function clearbit(

  const source: Byte;

  bitnum: Integer

):Byte; overload;

function clearbit(

  const source: Word;

  bitnum: Integer

):Word; overload;

function clearbit(

  const source: LongWord;

  bitnum: Integer

):LongWord; overload;