Byte-Wert in 8 Bool-Variablen anzeigen - wie am einfachsten?

[Dax]

Delphi-Quellcode:

type
  TBoolByteArray = array[0..7] of Boolean;

function ByteToBoolArray(B: Byte): TBoolByteArray;
var i: Integer;
begin
  for i := 0 to 7 do
    Result[i] := (B shr (7-i)) and 1;
end;

Ist das eher was?