Dephi中能否对bit进行操作，如果能，怎么操作

Dephi中能否对bit进行操作，如果能，如何操作？
Dephi中能否对bit进行操作，如果能，如何操作？

[解决办法]
var
bit : TBits;
Data : Int64;

Data1 : Byte;
bit1 : array [0..7] of Byte;

i : Integer;
begin
bit := TBits.Create;
bit.Size := 64;
Data := $f0f0f0f0f0f0f0f0;

for i:=63 downto 0 do
bit.Bits[63-i] := Boolean( (Data shr i) and $1);

for i:=0 to bit.Size-1 do
ShowMessage(IntToStr(Integer(bit.Bits[i])));
bit.Free;

Data1 := $f0;
for i:=7 downto 0 do
bit1[7-i] := (Data1 shr i) and $1;
for i:=0 to 7 do
ShowMessage(IntToStr(bit1[i]));

end;