Source position: flcInteger.pas line 1160
procedure Word1024SetBit(
var A: Word1024;
const B: Integer
);