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

[negaH]

Delphi-Quellcode:

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

function ByteToBooleanArray(Value: Byte): TBooleanArray;
var
  I: Integer;
begin
  for I := Low(Result) to High(Result) do
  begin
    Result[I] := Odd(Value);
    Value := Value shr 1;
  end;
end;

Gruß Hagen