Zliczanie wartosci z listboxa

Na samym wstępie pragnę zaznaczyć, że miałem bardzo długą przerwę w kodowaniu więc proszę o wyrozumiałość. Mój problem polega na tym, że nie potrafię podliczyć wartości z listboxa. Chodzi o to, że mam coś w stylu bazy towarów i użytkownik klikając na klawisz kup dodaje cenę towaru do listboxa. Zrobiłem tak:

Text.Calosc := IntToStr(StrToInt(ListBox1.Items[0])+StrToInt(ListBox1.Items[1]));

i tak dalej, i tak dalej..

Tutaj mam właśnie problem, bo nie chce tego robić ręcznie jeśli tych towarów będzie na przykład 10000.

suma := 0;
for i := 0 to ListBox1.Count - 1 do
  suma := suma + StrToInt(ListBox1.Items[i]);

a jak się ma przerwę to się zaczyna od podstaw (kurs, książka, google) a nie leci z każdą głupotą na forum

Dziękuje i przepraszam :*.