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:

If Not OpenDialog1.Execute Then Exit;

Try
  Try
  Loadstream := TStringList.Create;
  Loadstream.LoadFromFile(OpenDialog1.FileName);

  /// Fülle die Variablen für Monster-, Zauber- und Fallenkarten des Main Decks
  Anz_Monster := StrToInt(Loadstream[0]);
  Anz_Zauber := StrToInt(Loadstream[1]);
  Anz_Fallen := StrToInt(Loadstream[2]);   /// BIS HIERHER KLAPPT ALLES

  /// Finde heraus, wo die Decks getrennt wurden (durch @)...
  For I := 0 To Loadstream.Count Do /// AB HIER FÜHRT ES ZU PROBLEMEN. ÜBERLEGUNG: Loadstream.COUNT ist falsch???
    Begin
    Pos_Mainbox := 3;
    If Loadstream[I] = '@Sidebox' Then Pos_Sidebox := I;
    If Loadstream[I] = '@Extrabox' Then Pos_Extrabox := I;
    If Loadstream[I] = '@Gesamtbox' Then Pos_Gesamtbox := I;
    If Loadstream[I] = '@Mainbox2' Then Pos_Mainbox2 := I;
    If Loadstream[I] = '@Sidebox2' Then Pos_Sidebox2 := I;
    If Loadstream[I] = '@Extrabox2' Then Pos_Extrabox2 := I;
    If Loadstream[I] = '@END' Then Pos_End := I;
    End;

/// Hier kommt noch mehr Code, der unwichtig ist...