Schau Dir mal dieses Codeschnipsel an:
KomKats.Kategorie[KomKats.getIndexById(Artikel.Kategorie)].AddArtikel(Artikel);
Daraus würde ich dies machen:
Delphi-Quellcode:
kat := KomKats.FindKategorieByName(Artikel.Kategorie);
if not Assigned(kat)
then
ShowMessageFmt('
Kategorie %s nicht gefunden',[Artikel.Kategorie])
// hier könnte auch eine Exception statt ShowMessage stehen
else
kat.AddArtikel(Artikel);
PS:
du schreibst überall
Form1.[irgendwas].
Lass das Form1. mal weg, denn es schadet nur.