setbit1

procedure setbit1(

  var dest: Byte;

  bitnum: Integer

); overload;

procedure setbit1(

  var dest: Word;

  bitnum: Integer

); overload;

procedure setbit1(

  var dest: LongWord;

  bitnum: Integer

); overload;