Mach doch erstmal ne vernünftige Schleife über die Items deiner Listbox
Delphi-Quellcode:
Summe := 0;
for y:=0 to Listbox1.Items.Count-1 do
begin
// hier hattest Du ja schon einen Ansatz
x := StrToInt(Listbox1.Items[y]);
// jetzt auf deine Summe addieren
// aber bitte selber machen
end;
// Summe ausgeben
// aber bitte selber machen
Dann solltest Du noch überlegen, ob es nur ganzzahlige Werte sein sollen, dann ist StrToInt ok, besser wäre jedoch StrToIntDef()
Die Hilfe in Delphi zeigt dir den Unterschied.
Wenn es denn Gleitkommazahlen sein sollen, solltest Du StrToFloat bzw. StrToFloatDef oder TryStrToFloat verwenden. Wirf auch hierzu mal einen Blick in die Hilfe von Delphi.
So, und jetzt Du