Wenn Du die Checkboxen von 1 bis z.B. 15 durchnummerierst (CheckBox__), dann
Delphi-Quellcode:
procedure TForm1.SaveCheckBoxes;
var
I: Integer;
begin
for I := 1 to 15 do
Datei.Add(IntToStr(Integer(TCheckBox(FindComponent('CheckBox' + IntToStr(I))).Checked)));
end;
procedure TForm1.LoadCheckBoxes;
var
I: Integer;
begin
for I := 1 to 15 do
TCheckBox(FindComponent('CheckBox' + IntToStr(I))).Checked := Datei[I] = '-1';
end;