updatebit

function updatebit(

  var dest: Byte;

  bitnum: Integer;

  value: Boolean

):Boolean; overload;

function updatebit(

  var dest: Word;

  bitnum: Integer;

  value: Boolean

):Boolean; overload;

function updatebit(

  var dest: LongWord;

  bitnum: Integer;

  value: Boolean

):Boolean; overload;