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;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label17: 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);
    procedure FormCreate(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;

//Der gøres sådan, at kun 1 checkbox kan markeres ad gangen.
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 //Der tjekkes, om det er den rigtige 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 begin
   Label16.Visible := true;
   Label16.Enabled := true;
   Label16.Caption := 'Tillykke, du har det hele rigtigt!';
  end

  else begin
   Label16.Visible := true;
   Label16.Enabled := true;
   Label16.Caption := 'Du har desværre nogle fejl.';
  end

 end;

procedure TForm2.FormCreate(Sender: TObject);
begin
Label16.Visible := false;
end;

end.