Sumar elementos de una list box

[DarkMan]

Creo que esta es la solución :

Código Delphi [-]
for i:=0 to lbPrecio.Items.Count-1 do
         begin
             numero:=strToFloat(LBPrecio.items[i]); 
             total:=total+numero;
         end;
Edit.text:=FloatToStr(Total) ;