updatebit1

procedure updatebit1(

  var dest: Byte;

  bitnum: Integer;

  value: Boolean

); overload;

procedure updatebit1(

  var dest: Word;

  bitnum: Integer;

  value: Boolean

); overload;

procedure updatebit1(

  var dest: LongWord;

  bitnum: Integer;

  value: Boolean

); overload;