suche einfache Lösung für Verzweigung

[Ingenieur]

Hallo,

ich habe sechs checkboxes auf einer form. Zwei sollen immer gechecked sein, woraufhin, je nachdem welche gechecked sind, sich verschiedene Labels ändern und und sich die anderen checkboxes deaktivieren. Meine Lösung eine if...then Verzweigung (siehe unten) funktioniert, ist aber sehr langatmig. Mir fällt allerdings auch keine bessere Lösung ein, kenne mich leider auch noch nicht so gut mit Delphi aus. hat jmd eine Idee?

Hier mein Quelltext:

procedure TForm6.Timer1Timer(Sender: TObject);
begin
if (checkbox1.Checked) and (checkbox2.checked) then
begin
checkbox3.Enabled := false;
checkbox4.Enabled := false;
checkbox5.Enabled := false;
label1.caption := 'Geben Sie die Länge der Geraden a ein:';
label6.caption := 'Geben Sie die Länge der Geraden b ein:';
label3.Caption := 'Geben Sie die Länge der Geraden c ein:';
label4.Caption := 'Geben Sie den Winkel alpha ein:';
label5.Caption := 'Geben Sie den Winkel beta ein:';
end
else if (checkbox1.Checked) and (checkbox3.checked) then
begin
checkbox2.Enabled := false;
checkbox4.Enabled := false;
checkbox5.Enabled := false;
label1.caption := 'Geben Sie die Länge der Geraden a ein:';
label3.caption := 'Geben Sie die Länge der Geraden b ein:';
label6.Caption := 'Geben Sie die Länge der Geraden c ein:';
label4.Caption := 'Geben Sie den Winkel alpha ein:';
label5.Caption := 'Geben Sie den Winkel beta ein:';
end
else if (checkbox1.Checked) and (checkbox4.Checked) then
begin
......usw......