Delphi - ListBox_suma_items

Ingreso varis items a un ListBox así:

ListBox1.items.add(Edit1.text); {Cantidades numericas}
.....

Una vez ingresados n...registros, necesito saber la suma total de los items, independientemente de la cantidad de ellos.

Nota: No es la cuenta de items: ListBox1.Items.count-1.

Muchas gracias.

Checate este ejemplo sencillo, en este caso corresponde a una funcion que suma los elementos de un listbox despues de presionar un boton (BUTTON1), en este ejemplo yo asumo que los datos son enteros por eso uso inttostr() usa floattostr() si son flotantes o la funcion adecuada dependiendo del formato de tus datos.

procedure TForm1.Button1Click(Sender: TObject);
var _totaldeelementos,_posicion,_suma : integer;
begin
_suma := 0;
{ las siguientes 2 lineas son las que hacen en realidad hacen la suma }
for _posicion := 0 to ( listbox1.Items.count - 1 ) do
_suma := _suma + strtoint(listbox1.Items[_posicion]);

showmessage('La suma de los elementos es: ' + inttostr(_suma));
end;

Si, me sirvió, muchas gracias.

var
n:Integer
total:Integer;

begin)
total:=0;
for n:=0 to listbox1.items.count-1 do
total:=total+Strtoint(listbox1.items[n]);

end;

si te sirve toda tuya.

Si, me sirvió, muchas gracias.