Objekte in eigener TObjectList verlieren ihre Werte

[Namenloser]

Delphi-Quellcode:

with locNonFood do
  begin
    Artikelname:=AddArtikelDLG.txtArtikelname.Text;
    Menge:= Integer(AddArtikelDLG.txtAmount.Text);
    Preis:= Integer(AddArtikelDLG.txtPrice.Text);
  end;

Typecast auf Integer? Bist du sicher? Du suchst denke ich eher StrToInt.