Source position: msebits.pas line 132
procedure setbit1(
var dest: Byte;
bitnum: Integer
); overload;procedure setbit1(
var dest: Word;
var dest: LongWord;
); overload;