suma w listbox

mam na formularzu komponent listbox a w nim liczby (kazda w osobnej lini) podane
jak zsumowac wszystkie liczby z wszystkich lini i wyswietlic w edit

var  
  i    : integer;
  suma : single;
begin
  suma:=0;
  for i:=0 to ListBox1.Items.Count-1 do
    suma:=suma+StrToFloatDef(ListBox1.Items[i],0);
end;

var  
  i    : integer;
  suma : single;
begin
  suma:=0;
  for i:=0 to ListBox1.Items.Count-1 do
    suma:=suma+StrToFloatDef(ListBox1.Items[i],0);
end;