function CountBits(const Value: Integer): Integer;
asm
mov ECX,EAX
xor EAX,EAX
test ECX,ECX
jz @@ending
@@counting:
shr ECX,1
adc EAX,0
jnz @@counting
@@ending:
end;