1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm2.Button1Click(Sender: TObject);
var X:Integer;
begin
x:=18;
asm
  mov eax,x;
  xor ecx,ecx;
  @Mehr:shr eax,1;
  jnc @Nee;
  Inc ecx;
  @Nee:cmp eax,0;
  jne @Mehr;
  mov x,ecx;
end;
Button1.Caption:=IntToStr(X);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

    asm
     CLC
     MOV  EAX,$AAAA5555; //Testzahl 
     XOR  EDX,EDX        //Zaehler der gesetzten Bit

@Zaehle:
     ADC  EDX,0
     ADD  EAX,EAX  //EDIT schneller als shl EAX,1 auf Athlon64
     JNZ  @Zaehle  //Durchläufe = 32- Position des ersten gesetzen Bits von rechts (BSR)

     ADC  EDX,0

     MOV DWORD PTR [i],EDX
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

     asm
     MOV  EAX,$AAAA5555; //DWORD PTR [j]
     XOR  EDX,EDX
     TEST EAX,EAX
     JZ   @Fertig

@Zaehle0:
     INC  EDX
     MOV  EDI,EAX
     DEC  EDI
     AND  EAX,EDI
     JNZ  @Zaehle0 //Durchläufe = Anzahl gesetzter Bits
@Fertig:

     MOV DWORD PTR [i],EDX
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function TForm1.IntToBin2(d: Longint): string;
var
  x, p: Integer;
  bin: string;
begin
  bin := '';
  for x := 1 to 8 * SizeOf(d) do
  begin
    if Odd(d) then bin := '1' + bin
    else
      bin := '0' + bin;
    d := d shr 1;
  end;
  Delete(bin, 1, 8 * ((Pos('1', bin) - 1) div 8));
  Result := bin;
end;