Ansonsten hättest du selbst bei den IFs 80% der Zeilen einsparen können.
Delphi-Quellcode:
CheckBox16.Checked := (Value and 32768) <> 0;
CheckBox15.Checked := (Value and 16384) <> 0;
CheckBox14.Checked := (Value and 8192) <> 0;
...
CheckBox1.Checked := (Value and 1) <> 0;
Und Hexadezimal läßt sich Binär auch viel schöner rechnen, als mit Dezimal.
Delphi-Quellcode:
CheckBox16.Checked := (Value and $8000) <> 0;
CheckBox15.Checked := (Value and $4000) <> 0;
CheckBox14.Checked := (Value and $2000) <> 0;
...
CheckBox1.Checked := (Value and $0001) <> 0;