1:
2:
3:

INummer := ini.ReadString(Spe, 'Artikelnummer', '');
//...
IF Nam = Nummer THEN  Warenliste.Items.Add(Produktname + Tab + Firma + Tab + Nummer + Tab + PreisBon);					

1:

Warenliste.Items.SaveToFile('Waren.csv');					

1:

Warenliste.Items.LoadFromFile('Waren.csv');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

// Beispiel für den Code, der die Liste befüllt. Idealerweise sollte das aus der Datei geladen werden.
Warenliste := TObjectlist.Create();
Warenliste.Add(TWare.Create('Algäuer Alm', 'Käse (100g)', 24546, 60)); // Name, Kategorie, Artikelnummer, Preis in cent
Warenliste.Add(TWare.Create('Haribo Goldbären', 'Quengelware', 1234, 149));

// Barcode wurde gescannt
for i := 0 to Warenliste.Length - 1 do
begin
  if Warenliste[i].Artikelnummer = Barcode then
    Einkaufskorb.Add(Warenliste[i]);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

[123]
Produkt=Käse (100g)
Firma=Algäuer Alm
Nummer=1234
Preis=12.34
Valid=1
[234]
Produkt=Wurst (100g)
Firma=Schlachter
Nummer=815
Preis=33.22
Valid=1					

1:
2:
3:
4:

if ini.ReadBool(Barcode,'Valid',0)=1 then
  begin
            Warenliste.Add(ini.ReadString(Barcode,'Produkt','') + TAB .......
        end;					

1:
2:
3:
4:

  try

   spe := ArtikelNummer.Text;  // <<< das fehlt in Deinem Code
   IProduktname :=ini.ReadString(Spe, 'Produktname', '');