Delphi-Quellcode:
for i := 0 to count - 1 do
begin
gesamt:= gesamt + Item.wert; <--(Item.wert) hier wird mir dieser riesige wert übergeben
end;
Das Item Objekt ist auch nicht zugewiesen. Sollte eigentlich eine Schutzverletzung geben.
Vielleicht sollte es noch eine Funktion geben die mit TListe.Item(AIndex : Integer) : TItem;
auch das angesprochene Item zurück gibt.
Auch werden die erzeugten TItems nie freigegeben.