Sumar elementos de una list box

[[Caral]]

Hola

Código Delphi [-]
procedure TForm1.Actualiza;
var
i  : integer;
numero, total: real;
begin
   for i:=0 to ListBox2.Items.Count-1 do
         begin
             numero:=strToFloat(ListBox2.items[i]);
             total:=total+numero;
         end;
   Edit1.text:=FloatToStr(Total) ;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  ListBox2.Items.Add(Edit2.Text);
  Actualiza;
end;

Saludos