Checkboxen um funktionen zu bauen

[MondoShiva]

Hallo,

ich habe eine ziemlich große Anzahl an checkboxen (80x80) die alle untereinander zusammenhängen. Jetzt habe ich ziemlich wenig lust über 6000 abfragen zu machen ob checkbox-X gechecked ist.

Habe ich eine andere Möglichkeit die information in eine variable(boolean) zu bekommen als immer per if?

Leider will mir nichts in den Kopf kommen wie ich es anstellen könnte.

Derzeit sieht es leider so bei mir aus. Nur zum veranschaulichen das ich über 6000 Funktionen schreiben müsste mit mehreren 1000 .show / .hide für die Checkboxen.

Delphi-Quellcode:

   function func11 () : String;
begin
    form1.CheckBox1.Show;
    Form1.CheckBox2.Show;
    form1.CheckBox3.Show;
    Form1.CheckBox4.Show;
    Form1.CheckBox5.Show;
    Form1.CheckBox6.Show;
    Form1.CheckBox7.Show;
    Form1.CheckBox8.Show;
    form1.CheckBoxa1.Show;
    Form1.CheckBoxa2.Show;
    form1.CheckBoxa3.Show;
    Form1.CheckBoxa4.Show;
    Form1.CheckBoxa5.Show;
    Form1.CheckBoxa6.Show;
    Form1.CheckBoxa7.Show;
    Form1.CheckBoxa8.Show;
    form1.Label2.Caption := 'XXX';
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
    HidetheBoxes;

 if CheckBox1.Checked then begin
  func1;
  end;
    if CheckBox2.Checked then begin
    func2;
    end;
      if CheckBox3.Checked then begin
      func3;
      end;
        if CheckBox4.Checked then begin
        func4;
        end;
          if CheckBox5.Checked then begin
          func5;
          end;
            if CheckBox6.Checked then begin
            func6;
            end;
              if CheckBox7.Checked then begin
              func7;
              end;
                if CheckBox8.Checked then begin
                func8;
                end;
                  if CheckBox9.Checked then begin
                  func9;
                  end;
                    if CheckBox10.Checked then begin
                    func10;
                    end;
                      if CheckBox11.Checked then begin
                      func11;
                      end;
form2.hide;
form1.Button1.Enabled := true;

end;