1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
begin
Treffer1 := 0;
if edit80.Text = edit1.Text then inc (Treffer1); //edit80 = 1. akt. lottozahl
if edit80.Text = edit2.Text then inc (Treffer1); //edit1-6 = meine 1. tipreihe
if edit80.Text = edit3.Text then inc (Treffer1);
if edit80.Text = edit4.Text then inc (Treffer1);
if edit80.Text = edit5.Text then inc (Treffer1);
if edit80.Text = edit6.Text then inc (Treffer1);
Label5.Caption := inttostr(Treffer1);            //label5 = anzeige trefferanzahl
end;					

1:

if edit80.Text = edit1.Text or edit2.Text or ... or edit6.Text then inc (Treffer1)					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

uses Math;

procedure TMainFrm.CheckBox1Click(Sender: TObject);
const
  CrossAddRemove: Array[0..1] of String = ('machen!', 'entfernen!');
begin
  if (Sender as TCheckBox).Checked then
    Dec(FKreuze)  //Spieler muss ein Kreuz weniger machen
  else Inc(FKreuze);  //Spieler muss ein Kreuz mehr machen
  if FKreuze = 0 then begin  //labelBeschriftung 1: Lottoschein richtig
    labScheinOkay.Font.Color := clLime;
    labScheinOkay.Font.Style := [fsBold];
    labScheinOkay.Caption := 'Chance: 1 / 13.983.816';
  end else begin  //Labelbeschriftung 0: Lottoschein falsch
    labScheinOkay.Font.Color := clRed;
    labScheinOkay.Font.Style := [fsItalic];
    labScheinOkay.Caption := 'Sie müssen noch genau ' + IntToStr(Abs(FKreuze))
                           + ' Kreuze ' +
                           CrossAddRemove[IfThen(FKreuze > 0, 0, 1)];  //entweder 'kreuz machen' oder 'kreuz entfernen', je nachdem, ob zu viel oder zu wenig kreuze da sind.
  end;
end;

procedure TMainFrm.FormCreate(Sender: TObject);
var
  i: Integer;
  aCheckBox: TCheckBox;
begin
  FKreuze := 6;  //6 Kreuze fehlen auf dem lottoschein
  for i := 1 to 49 do begin  //für i=1..49 Checkboxen
    aCheckBox := (FindComponent('Checkbox' + IntToStr(i)) as TCheckBox);  //Checkbox auswählen
    aCheckBox.OnClick := self.CheckBox1Click;  //Wenn diese Checkbox gedrückt wird, wird die Anzahl der verbleibenden Kreuze angepasst
    aCheckBox.Caption := IntToStr(i);  //Der Text auf dieser Checkbox ist ihre Nummer.
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure SaveLotto(const aFilePath: String);  //Strings immer als const übergeben, sonst werden sie nochmal kopiert und es entsteht overhead
var
  aStringList: TStringList;
  i: Integer;
begin
  aStringList := TStringList.Create;
  try //bei File-Operationen kann immer was schiefgehen. Hier(und nur hier) ein try verwenden
    for i := 0 to EditCount - 1 do
      aStringList.Append(Edit[i].Text);
    aStringList.SaveToFile(aFilePath);
  finally
    aStringList.Free;
  end;  
end;

procedure LoadLotto(const aFilePath: String);  //Strings immer als const übergeben, sonst werden sie nochmal kopiert und es entsteht overhead
var
  aStringList: TStringList;
  i: Integer;
begin
  aStringList := TStringList.Create;
  try //bei File-Operationen kann immer was schiefgehen. Hier(und nur hier) ein try verwenden
    aStringList.LoadFromFile(aFilePath);
    for i := 0 to EditCount - 1 do
      Edit[i].Text := aStringList[i];
  finally
    aStringList.Free;
  end;  
end;					

1:

aStringList.Append(Edit[i].Text);