Sumar elementos de una list box

[yessika19]

gracias!!!!!

la cosa es que ahora me surge otro problema porque lo que quiero es que, a medida que meto datos en la listBox los vaya sumando y eseñando en un edit, cosa que no hace
he puesto

Código Delphi [-]
procedure TFPizzas.EEurosChange(Sender: TObject);
   var
      total,numero: double;
      i:integer;
   begin
      total:=0;
      for i:=0 to lbPrecio.Items.Count-1 do
         begin
             numero:=strToFloat(LBPrecio.items[i]);
             total:=total+numero;
         end;
      EEuros.Text:=FloatToStr(total);
   end;

tal y como m dijiste DarkMan (gracias de nuevo XD) pero no hace lo que quiero, ¿sabes si me falta añadir algo? siento ser tan pesada pero a mi esto de las interfaces m lia un poco

gracias!!!!