clearbit1

procedure clearbit1(

  var dest: Byte;

  bitnum: Integer

); overload;

procedure clearbit1(

  var dest: Word;

  bitnum: Integer

); overload;

procedure clearbit1(

  var dest: LongWord;

  bitnum: Integer

); overload;