FunkMastah

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Button1: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    CheckBox13: TCheckBox;
    CheckBox14: TCheckBox;
    CheckBox15: TCheckBox;
    CheckBox16: TCheckBox;
    CheckBox17: TCheckBox;
    CheckBox18: TCheckBox;
    CheckBox19: TCheckBox;
    CheckBox20: TCheckBox;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure CheckBox8Click(Sender: TObject);
    procedure CheckBox9Click(Sender: TObject);
    procedure CheckBox12Click(Sender: TObject);
    procedure CheckBox13Click(Sender: TObject);
    procedure CheckBox11Click(Sender: TObject);
    procedure CheckBox10Click(Sender: TObject);
    procedure CheckBox14Click(Sender: TObject);
    procedure CheckBox15Click(Sender: TObject);
    procedure CheckBox16Click(Sender: TObject);
    procedure CheckBox17Click(Sender: TObject);
    procedure CheckBox18Click(Sender: TObject);
    procedure CheckBox19Click(Sender: TObject);
    procedure CheckBox20Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
CheckBox1.Checked := false;
CheckBox2.Checked := false;
CheckBox3.Checked := false;
CheckBox4.Checked := false;
CheckBox5.Checked := false;
CheckBox6.Checked := false;
CheckBox7.Checked := false;
CheckBox8.Checked := false;
CheckBox9.Checked := false;
CheckBox10.Checked := false;
CheckBox11.Checked := false;
CheckBox12.Checked := false;
CheckBox13.Checked := false;
CheckBox14.Checked := false;
CheckBox15.Checked := false;
CheckBox16.Checked := false;
CheckBox17.Checked := false;
CheckBox18.Checked := false;
CheckBox19.Checked := false;
CheckBox20.Checked := false;

label16.Enabled := false;
end;

procedure TForm2.CheckBox1Click(Sender: TObject);
begin
if CheckBox2.Checked = true
then CheckBox2.Checked := false;
end;

procedure TForm2.CheckBox2Click(Sender: TObject);
begin
if CheckBox1.Checked = true
then CheckBox1.Checked := false;
end;

procedure TForm2.CheckBox3Click(Sender: TObject);
begin
if CheckBox4.Checked = true
then CheckBox4.Checked := false;
end;

procedure TForm2.CheckBox4Click(Sender: TObject);
begin
if CheckBox3.Checked = true
then CheckBox3.Checked := false;
end;

procedure TForm2.CheckBox5Click(Sender: TObject);
begin
if CheckBox6.Checked = true
then CheckBox6.Checked := false;
end;

procedure TForm2.CheckBox6Click(Sender: TObject);
begin
if CheckBox5.Checked = true
then CheckBox5.Checked := false;
end;

procedure TForm2.CheckBox7Click(Sender: TObject);
begin
if CheckBox8.Checked = true
then CheckBox8.Checked := false;
end;

procedure TForm2.CheckBox8Click(Sender: TObject);
begin
if CheckBox7.Checked = true
then CheckBox7.Checked := false;
end;

procedure TForm2.CheckBox9Click(Sender: TObject);
begin
if CheckBox10.Checked = true
then CheckBox10.Checked := false;
end;

procedure TForm2.CheckBox12Click(Sender: TObject);
begin
if CheckBox11.Checked = true
then CheckBox11.Checked := false;
end;

procedure TForm2.CheckBox13Click(Sender: TObject);
begin
if CheckBox14.Checked = true
then CheckBox14.Checked := false;
end;

procedure TForm2.CheckBox11Click(Sender: TObject);
begin
if CheckBox12.Checked = true
then CheckBox12.Checked := false;
end;

procedure TForm2.CheckBox10Click(Sender: TObject);
begin
if CheckBox9.Checked = true
then CheckBox9.Checked := false;
end;

procedure TForm2.CheckBox14Click(Sender: TObject);
begin
if CheckBox13.Checked = true
then CheckBox13.Checked := false;
end;

procedure TForm2.CheckBox15Click(Sender: TObject);
begin
if CheckBox16.Checked = true
then CheckBox16.Checked := false;
end;

procedure TForm2.CheckBox16Click(Sender: TObject);
begin
if CheckBox15.Checked = true
then CheckBox15.Checked := false;
end;

procedure TForm2.CheckBox17Click(Sender: TObject);
begin
if CheckBox18.Checked = true
then CheckBox18.Checked := false;
end;

procedure TForm2.CheckBox18Click(Sender: TObject);
begin
if CheckBox17.Checked = true
then CheckBox17.Checked := false;
end;

procedure TForm2.CheckBox19Click(Sender: TObject);
begin
if CheckBox20.Checked = true
then CheckBox20.Checked := false;
end;

procedure TForm2.CheckBox20Click(Sender: TObject);
begin
if CheckBox19.Checked = true
then CheckBox19.Checked := false;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
if //rigtig kombination
 CheckBox1.Checked = true
 and
 CheckBox2.Checked = false
 and
 CheckBox3.Checked = false
 and
 CheckBox4.Checked = true
 and
 CheckBox5.Checked = false
 and
 CheckBox6.Checked = true
 and
 CheckBox7.Checked = true
 and
 CheckBox8.Checked = false
 and
 CheckBox9.Checked = true
 and
 CheckBox10.Checked = false
 and
 CheckBox11.Checked = false
 and
 CheckBox12.Checked = true
 and
 CheckBox13.Checked = true
 and
 CheckBox14.Checked = false
 and
 CheckBox15.Checked = false
 and
 CheckBox16.Checked = true
 and
 CheckBox17.Checked = false
 and
 CheckBox18.Checked = true
 and
 CheckBox19.Checked = true
 and
 CheckBox20.Checked = false

 then Label16.Enabled := true

 else if //forkert (omvendt) kombination

 CheckBox1.Checked = false
 and
 CheckBox2.Checked = true
 and
 CheckBox3.Checked = true
 and
 CheckBox4.Checked = false
 and
 CheckBox5.Checked = true
 and
 CheckBox6.Checked = false
 and
 CheckBox7.Checked = false
 and
 CheckBox8.Checked = true
 and
 CheckBox9.Checked = false
 and
 CheckBox10.Checked = true
 and
 CheckBox11.Checked = true
 and
 CheckBox12.Checked = false
 and
 CheckBox13.Checked = false
 and
 CheckBox14.Checked = true
 and
 CheckBox15.Checked = true
 and
 CheckBox16.Checked = false
 and
 CheckBox17.Checked = true
 and
 CheckBox18.Checked = false
 and
 CheckBox19.Checked = false
 and
 CheckBox20.Checked = true

 then Label16.Enabled := false


end;

end.