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;