replacebits1

function replacebits1(

  var dest: Byte;

  const value: Byte;

  const mask: Byte

):Boolean; overload;

function replacebits1(

  var dest: Word;

  const value: Word;

  const mask: Word

):Boolean; overload;

function replacebits1(

  var dest: LongWord;

  const value: LongWord;

  const mask: LongWord

):Boolean; overload;