unit lotto;

interface

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

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Label1: TLabel;
    Button1: TButton;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    CheckBox13: TCheckBox;
    CheckBox14: TCheckBox;
    CheckBox15: TCheckBox;
    CheckBox16: TCheckBox;
    CheckBox17: TCheckBox;
    CheckBox18: TCheckBox;
    CheckBox19: TCheckBox;
    CheckBox20: TCheckBox;
    CheckBox21: TCheckBox;
    CheckBox22: TCheckBox;
    CheckBox23: TCheckBox;
    CheckBox24: TCheckBox;
    CheckBox25: TCheckBox;
    CheckBox26: TCheckBox;
    CheckBox27: TCheckBox;
    CheckBox28: TCheckBox;
    CheckBox29: TCheckBox;
    CheckBox30: TCheckBox;
    CheckBox31: TCheckBox;
    CheckBox32: TCheckBox;
    CheckBox33: TCheckBox;
    CheckBox34: TCheckBox;
    CheckBox35: TCheckBox;
    CheckBox36: TCheckBox;
    CheckBox37: TCheckBox;
    CheckBox38: TCheckBox;
    CheckBox39: TCheckBox;
    CheckBox40: TCheckBox;
    CheckBox41: TCheckBox;
    CheckBox42: TCheckBox;
    CheckBox43: TCheckBox;
    CheckBox44: TCheckBox;
    CheckBox45: TCheckBox;
    CheckBox46: TCheckBox;
    CheckBox47: TCheckBox;
    CheckBox48: TCheckBox;
    CheckBox49: TCheckBox;
    Button2: TButton;
    Button3: TButton;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Label2: TLabel;
    Label3: 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 CheckBox10Click(Sender: TObject);
    procedure CheckBox11Click(Sender: TObject);
    procedure CheckBox12Click(Sender: TObject);
    procedure CheckBox13Click(Sender: TObject);
    procedure CheckBox14Click(Sender: TObject);
    procedure CheckBox15Click(Sender: TObject);
    procedure CheckBox16Click(Sender: TObject);
    procedure CheckBox17Click(Sender: TObject);
    procedure CheckBox18Click(Sender: TObject);
    procedure CheckBox20Click(Sender: TObject);
    procedure CheckBox21Click(Sender: TObject);
    procedure CheckBox22Click(Sender: TObject);
    procedure CheckBox19Click(Sender: TObject);
    procedure CheckBox23Click(Sender: TObject);
    procedure CheckBox24Click(Sender: TObject);
    procedure CheckBox25Click(Sender: TObject);
    procedure CheckBox26Click(Sender: TObject);
    procedure CheckBox27Click(Sender: TObject);
    procedure CheckBox28Click(Sender: TObject);
    procedure CheckBox29Click(Sender: TObject);
    procedure CheckBox30Click(Sender: TObject);
    procedure CheckBox31Click(Sender: TObject);
    procedure CheckBox32Click(Sender: TObject);
    procedure CheckBox33Click(Sender: TObject);
    procedure CheckBox34Click(Sender: TObject);
    procedure CheckBox35Click(Sender: TObject);
    procedure CheckBox36Click(Sender: TObject);
    procedure CheckBox37Click(Sender: TObject);
    procedure CheckBox38Click(Sender: TObject);
    procedure CheckBox39Click(Sender: TObject);
    procedure CheckBox40Click(Sender: TObject);
    procedure CheckBox41Click(Sender: TObject);
    procedure CheckBox42Click(Sender: TObject);
    procedure CheckBox43Click(Sender: TObject);
    procedure CheckBox44Click(Sender: TObject);
    procedure CheckBox45Click(Sender: TObject);
    procedure CheckBox46Click(Sender: TObject);
    procedure CheckBox47Click(Sender: TObject);
    procedure CheckBox48Click(Sender: TObject);
    procedure CheckBox49Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  tipanzahl:byte;{Anzahl der anzukreuzenden Zahlen}
  aktivierungsfeld:array[1..49]of boolean;{wurde das jeweilige Kästchen aktiviert?}
  tipfeld:array[1..6]of byte;{vom Nutzer hinterlegte Tipzahlen}
  ziehungsfeld:array[1..6]of byte;{vom System gezogene Zahlen}
  i:byte;{Schleifenzähler für äußere Schleife}
  j:byte;{Schleifenzähler für innere Schleife}
  tipfeldzaehler:byte;{verwaltet den Index auf das Tipfeld}


implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
	tipfeldzaehler:=1;{damit kann die erste zahl auf das erste Feld geschrieben werden}
	if checkBox1.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[1]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[1]:=false;
  end;{end of else}
  if checkBox2.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[2]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[2]:=false;
  end;{end of else}
  if checkBox3.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[3]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[3]:=false;
  end;{end of else}
  if checkBox4.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[4]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[4]:=false;
  end;{end of else}
  if checkBox5.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[5]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[5]:=false;
  end;{end of else}
  if checkBox6.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[6]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[6]:=false;
  end;{end of else}
  if checkBox7.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[7]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[7]:=false;
  end;{end of else}
  if checkBox8.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[8]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[8]:=false;
  end;{end of else}
  if checkBox9.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[9]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[9]:=false;
  end;{end of else}
  if checkBox10.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[10]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[10]:=false;
  end;{end of else}
  if checkBox11.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[11]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[11]:=false;
  end;{end of else}
  if checkBox12.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[12]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[12]:=false;
  end;{end of else}
  if checkBox13.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[13]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[13]:=false;
  end;{end of else}
  if checkBox14.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[14]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[14]:=false;
  end;{end of else}
  if checkBox15.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[15]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[15]:=false;
  end;{end of else}
  if checkBox16.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[16]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[16]:=false;
  end;{end of else}
  if checkBox17.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[17]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[17]:=false;
  end;{end of else}
  if checkBox18.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[18]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[18]:=false;
  end;{end of else}
  if checkBox19.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[19]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[19]:=false;
  end;{end of else}
  if checkBox20.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[20]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[20]:=false;
  end;{end of else}
  if checkBox21.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[21]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[21]:=false;
  end;{end of else}
  if checkBox22.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[22]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[22]:=false;
  end;{end of else}
  if checkBox23.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[23]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[23]:=false;
  end;{end of else}
  if checkBox24.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[24]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[24]:=false;
  end;{end of else}
  if checkBox25.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[25]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[25]:=false;
  end;{end of else}
  if checkBox26.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[26]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[26]:=false;
  end;{end of else}
  if checkBox27.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[27]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[27]:=false;
  end;{end of else}
  if checkBox28.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[28]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[28]:=false;
  end;{end of else}
  if checkBox29.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[29]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[29]:=false;
  end;{end of else}
  if checkBox30.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[30]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[30]:=false;
  end;{end of else}
  if checkBox31.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[31]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[31]:=false;
  end;{end of else}
  if checkBox32.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[32]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[32]:=false;
  end;{end of else}
  if checkBox33.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[33]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[33]:=false;
  end;{end of else}
  if checkBox34.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[34]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[34]:=false;
  end;{end of else}
  if checkBox35.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[35]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[35]:=false;
  end;{end of else}
  if checkBox36.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[36]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[36]:=false;
  end;{end of else}
  if checkBox37.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[37]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[37]:=false;
  end;{end of else}
  if checkBox38.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[38]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[38]:=false;
  end;{end of else}
  if checkBox39.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[39]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[39]:=false;
  end;{end of else}
  if checkBox40.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[40]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[40]:=false;
  end;{end of else}
    if checkBox41.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[41]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[41]:=false;
  end;{end of else}
    if checkBox42.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[42]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[42]:=false;
  end;{end of else}
    if checkBox43.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[43]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[43]:=false;
  end;{end of else}
    if checkBox44.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[44]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[44]:=false;
  end;{end of else}
    if checkBox45.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[45]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[45]:=false;
  end;{end of else}
    if checkBox46.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[46]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[46]:=false;
  end;{end of else}
    if checkBox47.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[47]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[47]:=false;
  end;{end of else}
    if checkBox48.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[48]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[48]:=false;
  end;{end of else}
    if checkBox49.Checked=true
  then
  begin{begin of then}
  	aktivierungsfeld[49]:=true;
  end{end of then}
  else
  begin{begin of else}
  	aktivierungsfeld[49]:=false;
  end;{end of else}
  for i:=1 to 49 do
  begin{begin of for}
  	if aktivierungsfeld[i]=true
    then
    begin{begin of then}
    	tipfeld[tipfeldzaehler]:=i;
  		inc(tipfeldzaehler);
    end;{end of then}
  end;{end of for}
  Edit1.Text:=IntToStr(tipfeld[1]);
  Edit2.Text:=IntToStr(tipfeld[2]);
  Edit3.Text:=IntToStr(tipfeld[3]);
  Edit4.Text:=IntToStr(tipfeld[4]);
  Edit5.Text:=IntToStr(tipfeld[5]);
  Edit6.Text:=IntToStr(tipfeld[6]);
  Button2.Visible:=true;{Korrekturtaste wird freigegeben}
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox4Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox5Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox6Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox7Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox8Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox9Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox10Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox11Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox12Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox13Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox14Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox15Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox16Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox17Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox18Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox20Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox21Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox22Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox19Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox23Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox24Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox25Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox26Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox27Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox28Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox29Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox30Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox31Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox32Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox33Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox34Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox35Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox36Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox37Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox38Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox39Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox40Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox41Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox42Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox43Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox44Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox45Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox46Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox47Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox48Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.CheckBox49Click(Sender: TObject);
begin
	inc(tipanzahl);
  if tipanzahl=6
  then
  begin{begin of then}
  	CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    CheckBox3.Enabled:=false;
    CheckBox4.Enabled:=false;
    CheckBox5.Enabled:=false;
    CheckBox6.Enabled:=false;
    CheckBox7.Enabled:=false;
    CheckBox8.Enabled:=false;
    CheckBox9.Enabled:=false;
    CheckBox10.Enabled:=false;
    CheckBox11.Enabled:=false;
    CheckBox12.Enabled:=false;
    CheckBox13.Enabled:=false;
    CheckBox14.Enabled:=false;
    CheckBox15.Enabled:=false;
    CheckBox16.Enabled:=false;
    CheckBox17.Enabled:=false;
    CheckBox18.Enabled:=false;
    CheckBox19.Enabled:=false;
    CheckBox20.Enabled:=false;
    CheckBox21.Enabled:=false;
    CheckBox22.Enabled:=false;
    CheckBox23.Enabled:=false;
    CheckBox24.Enabled:=false;
    CheckBox25.Enabled:=false;
    CheckBox26.Enabled:=false;
    CheckBox27.Enabled:=false;
    CheckBox28.Enabled:=false;
    CheckBox29.Enabled:=false;
    CheckBox30.Enabled:=false;
    CheckBox31.Enabled:=false;
    CheckBox32.Enabled:=false;
    CheckBox33.Enabled:=false;
    CheckBox34.Enabled:=false;
    CheckBox35.Enabled:=false;
    CheckBox36.Enabled:=false;
    CheckBox37.Enabled:=false;
    CheckBox38.Enabled:=false;
    CheckBox39.Enabled:=false;
    CheckBox40.Enabled:=false;
    CheckBox41.Enabled:=false;
    CheckBox42.Enabled:=false;
    CheckBox43.Enabled:=false;
    CheckBox44.Enabled:=false;
    CheckBox45.Enabled:=false;
    CheckBox46.Enabled:=false;
    CheckBox47.Enabled:=false;
    CheckBox48.Enabled:=false;
    CheckBox49.Enabled:=false;
  end{end of then}
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
	tipanzahl:=0;
	tipfeldzaehler:=1;
  CheckBox1.Enabled:=true;
  CheckBox1.Checked:=false;
  CheckBox2.Enabled:=true;
  CheckBox2.Checked:=false;
  CheckBox3.Enabled:=true;
  CheckBox3.Checked:=false;
  CheckBox4.Enabled:=true;
  CheckBox4.Checked:=false;
  CheckBox5.Enabled:=true;
  CheckBox5.Checked:=false;
  CheckBox6.Enabled:=true;
  CheckBox6.Checked:=false;
  CheckBox7.Enabled:=true;
  CheckBox7.Checked:=false;
  CheckBox8.Enabled:=true;
  CheckBox8.Checked:=false;
  CheckBox9.Enabled:=true;
  CheckBox9.Checked:=false;
  CheckBox10.Enabled:=true;
  CheckBox10.Checked:=false;
  CheckBox11.Enabled:=true;
  CheckBox11.Checked:=false;
  CheckBox12.Enabled:=true;
  CheckBox12.Checked:=false;
  CheckBox13.Enabled:=true;
  CheckBox13.Checked:=false;
  CheckBox14.Enabled:=true;
  CheckBox14.Checked:=false;
  CheckBox15.Enabled:=true;
  CheckBox15.Checked:=false;
  CheckBox16.Enabled:=true;
  CheckBox16.Checked:=false;
  CheckBox17.Enabled:=true;
  CheckBox17.Checked:=false;
  CheckBox18.Enabled:=true;
  CheckBox18.Checked:=false;
  CheckBox19.Enabled:=true;
  CheckBox19.Checked:=false;
  CheckBox20.Enabled:=true;
  CheckBox20.Checked:=false;
  CheckBox21.Enabled:=true;
  CheckBox21.Checked:=false;
  CheckBox22.Enabled:=true;
  CheckBox22.Checked:=false;
  CheckBox23.Enabled:=true;
  CheckBox23.Checked:=false;
  CheckBox24.Enabled:=true;
  CheckBox24.Checked:=false;
  CheckBox25.Enabled:=true;
  CheckBox25.Checked:=false;
  CheckBox26.Enabled:=true;
  CheckBox26.Checked:=false;
  CheckBox27.Enabled:=true;
  CheckBox27.Checked:=false;
  CheckBox28.Enabled:=true;
  CheckBox28.Checked:=false;
  CheckBox29.Enabled:=true;
  CheckBox29.Checked:=false;
  CheckBox30.Enabled:=true;
  CheckBox30.Checked:=false;
  CheckBox31.Enabled:=true;
  CheckBox31.Checked:=false;
  CheckBox32.Enabled:=true;
  CheckBox32.Checked:=false;
  CheckBox33.Enabled:=true;
  CheckBox33.Checked:=false;
  CheckBox34.Enabled:=true;
  CheckBox34.Checked:=false;
  CheckBox35.Enabled:=true;
  CheckBox35.Checked:=false;
  CheckBox36.Enabled:=true;
  CheckBox36.Checked:=false;
  CheckBox37.Enabled:=true;
  CheckBox37.Checked:=false;
  CheckBox38.Enabled:=true;
  CheckBox38.Checked:=false;
  CheckBox39.Enabled:=true;
  CheckBox39.Checked:=false;
  CheckBox40.Enabled:=true;
  CheckBox40.Checked:=false;
  CheckBox41.Enabled:=true;
  CheckBox41.Checked:=false;
  CheckBox42.Enabled:=true;
  CheckBox42.Checked:=false;
  CheckBox43.Enabled:=true;
  CheckBox43.Checked:=false;
  CheckBox44.Enabled:=true;
  CheckBox44.Checked:=false;
  CheckBox45.Enabled:=true;
  CheckBox45.Checked:=false;
  CheckBox46.Enabled:=true;
  CheckBox46.Checked:=false;
  CheckBox47.Enabled:=true;
  CheckBox47.Checked:=false;
  CheckBox48.Enabled:=true;
  CheckBox48.Checked:=false;
  CheckBox49.Enabled:=true;
  CheckBox49.Checked:=false;
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
  Edit5.Text:='';
  Edit6.Text:='';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
	randomize;
  for i:=1 to 6 do
  begin{begin of for}
  	{repeat
    until}
  		ziehungsfeld[i]:=random(48+1);
  end;{end of for}
  Edit7.Text:=IntToStr(ziehungsfeld[1]);
  Edit8.Text:=IntToStr(ziehungsfeld[2]);
  Edit9.Text:=IntToStr(ziehungsfeld[3]);
  Edit10.Text:=IntToStr(ziehungsfeld[4]);
  Edit11.Text:=IntToStr(ziehungsfeld[5]);
  Edit12.Text:=IntToStr(ziehungsfeld[6]);
end;

end.