1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

var
  // TBestellung besteht aus einer BenutzerID sowie aus einer TList mit den TBestellPosten
  best: TBestellung;

  // TBestellPosten besteht aus einem TProdukt sowie der Anzahl als Integer
  // TProdukt besteht aus Strings und Integern
  posten1: TBestellPosten; produkt1: TProdukt;
  posten2: TBestellPosten; produkt2: TProdukt;
  posten3: TBestellPosten; produkt3: TProdukt;
  
  // In diese TList werden alle TBestellPosten hineingeladen
  list: TList;

  // Ein Counter fuer die Schleife
  i: integer;
begin
  // Produkte erstellen mit: Name, Hersteller, ID, Preis, HerstellerID
  produkt1 := TProdukt.Create('Läyberkäißß', 'SCHTROBL', 0, 10, 0);
  produkt2 := TProdukt.Create('Hackfleisch', 'SCHTROBL', 1, 20, 0);
  produkt3 := TProdukt.Create('LAABLA', 'SCHTROBL', 2, 31, 0);

  // BestellPosten erstellen mit: TProdukt, Anzahl
  posten1 := TBestellPosten.Create(produkt1, 5);
  posten2 := TBestellPosten.Create(produkt2, 6);
  posten3 := TBestellPosten.Create(produkt3, 7);

  // Liste mit allen Posten bauen
  list := TList.Create;
    list.Add(posten1);
    list.Add(posten2);
    list.Add(posten3);

  // Bestellung aus BenutzerID und der Liste erstellen
  best := TBestellung.Create(312312, list);

  // Alle Items aus der TList in die TListBox zu schreiben.
  for i := 0 to list.Count - 1 do
    begin
      { Hier gibt es den Fehler: [Pascal Fehler] TestUnit.pas(80): E2015 Operator ist auf diesen Operandentyp nicht anwendbar
        Was ich hier versuche: Alle Items aus der TList in die TListBox zu schreiben. Die TListBox.AddItem Prozedur hat zwei Parameter:
        Item: String -> Das soll der Name des Produktes sein. Also TProdukt.ProduktName
        AObject: TObject -> Das soll das Objekt TBestellPosten sein. Muss zum auslesen natürlich noch gecastet werden mit (TObject as TBestellPosten)
      }
      ListBox2.AddItem(  (list.Items[i] as TBestellPosten)^.Produkt.ProduktName, (list.Items[i] as TBestellPosten)^);
    end;
end;					

1:

ListBox2.AddItem( (list.Items[i] as TBestellPosten).Produkt.ProduktName, list.Items[i] );					

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

// [Pascal Fehler] TestUnit.pas(80): E2015 Operator ist auf diesen Operandentyp nicht anwendbar
ListBox2.AddItem( (list.Items[i] as TBestellPosten).Produkt.ProduktName, list.Items[i] );

// Funktioniert
ListBox2.AddItem( 'Zufall', list.Items[i] );

// So funktionierts auf einmal
// Habs hier gefunden: http://forum.ubuntuusers.de/topic/delphi-lazarus-fpc-objekte-aus-tlist-auslesen/
ListBox2.AddItem( TBestellPosten(list.Items[i]).Produkt.ProduktName, list.Items[i]);					

1:

(TObject(list.Items[i]) as TBestellPosten).Produkt.ProduktName