8 Bits zu CheckBoxen zuweisen - Ansatz gesucht

[Netblaster]

Vielen Dank Euch allen,

was ich mir nun gebaut habe:

Delphi-Quellcode:

var
Kontakte,z,z1 : byte;
DasEmpfangeneByte : string;

Begin
Kontakte:=ord(DasEmpfangeneByte); //Das empfangene Byte ist aus der Schnittstelle als String eingelesen
                              // und wird erst mal umgewandelt...spielt hier aber erst mal keine Rolle...

z1:=1;

for z:=1 to 8 do  begin  bit[z]:=Kontakte and z1; z1:=z1*2; end;

if bit[1] <> 0 then Hauptform.SeSkinCheckBox1.checked:=true;
if bit[2] <> 0 then Hauptform.SeSkinCheckBox2.checked:=true;
if bit[3] <> 0 then Hauptform.SeSkinCheckBox3.checked:=true;
if bit[4] <> 0 then Hauptform.SeSkinCheckBox4.checked:=true;
if bit[5] <> 0 then Hauptform.SeSkinCheckBox5.checked:=true;
if bit[6] <> 0 then Hauptform.SeSkinCheckBox6.checked:=true;
if bit[7] <> 0 then Hauptform.SeSkinCheckBox7.checked:=true;
if bit[8] <> 0 then Hauptform.SeSkinCheckBox8.checked:=true;

end

Also so geht es erst mal.
Ist ebend blöd, dass man die 8 CheckBoxen nicht mit einem Befehl gleichzeitig, sozusagen in dem man die BitMaske drüberlegt, aktivieren kann.

Aber Ihr habt mir erst mal erfolgreich weitergeholfen. - Danke!