8 Bits zu CheckBoxen zuweisen - Ansatz gesucht

[Dax]

Wie wärs damit?

Delphi-Quellcode:

for z := 0 to 7 do
  TCheckBox(Hauptform.FindComponent('SeSkinCheckBox' + IntToStr(z+1))).Checked := ((bit shr z) and 1) <> 0;