Das Problem wird dieses Stück sein:
Delphi-Quellcode:
For i := 1 to Start_Fechter do
FechterListe[i] := TFechter.Create;
"FechterListe" ist ein Array von 1 bis 200, da "Start_Fechter" aber mit 335 angegeben ist, versuchst du auf das Array von 1 bis 355 zuzugreifen. Nach 200 ist aber Ende. Mach also am besten aus:
FechterListe : Array [1..200] of TFechter;
folgendes:
FechterListe : Array [1..Start_Fechter] of TFechter;
Btw: Die Variablen gehören in den private/publich Bereich.
MfG Pr0g