获取字节中的bit值

procedure getBits;
var
  i: Integer;
  aByte: Byte;
  bitArr: array [0..7] of Byte;
  pp: Pointer;
begin
  aByte := $F0;
  pp := @bitArr;
  ZeroMemory(@bitArr,SizeOf(bitArr));
  asm
    push eax
    push ecx
    push edx
    mov edx,pp
    mov ecx,0
    mov al,aByte
    @@1:
    shr al,1
    jnc @@2
    mov [edx],1
    @@2:
    inc cx
    inc edx
    cmp ecx,7
    jna @@1
    pop edx
    pop ecx
    pop eax
  end;
  for i := 0 to 7 do
    if bitArr[i]>0 then
      ShowMessageFmt('%d bit = 1',[i]);
end;