Dein Schleifenindex ist falsch.
Zitat:
Delphi-Quellcode:
SetLength(Gericht,NumberofRecipes);
for i := 1 to NumberofRecipes do
Gericht[i] := TGericht.Create(i);
Dynamische Arrays beginnen mit dem Index 0. Auf jeden Fall anzuraten ist in so einem Fall die Verwendung von Low() und High(), dann muss man sich um Array-Grenzen keine Sorgen machen.
Delphi-Quellcode:
SetLength(Gericht,NumberofRecipes);
for i := Low(Gericht) to High(Gericht) do
Gericht[i] := TGericht.Create(i);
Ob das nun die Fehlerursache war, kann ich Dir nicht sagen, ein Fehler war es auf jeden Fall.