Source position: classesh.inc line 777
public function TBits.PopCount(
Pos: SizeInt;
Count: SizeInt;
Lim: SizeInt = High(SizeInt)
):SizeInt;