Addition i ListBox

Jeg har et program der indtil videre tager input fra 7 Edit.Text. Lægger dem sammen på to forskellige måder afhængigt af 2 radiobuttons. Og adder dem til en listbox sammen med noget tekst.

Kode 

procedure TForm1.BtnAddClick(Sender: TObject);
var
  x : integer;
begin
  r[1]:= StrToFloat(EditR1.Text);
  r[2]:= StrToFloat(EditR2.Text);
  r[3]:= StrToFloat(EditR3.Text);
  r[4]:= StrToFloat(EditR4.Text);
  r[5]:= StrToFloat(EditR5.Text);
  r[6]:= StrToFloat(EditR6.Text);
  r[7]:= StrToFloat(EditR7.Text);

    if RdBtnPara.Checked = true then
    begin
      accum := 0;
        for x := 1 to 7 do
          begin
            if r[x]<>0 then
            begin
              accum:= accum+(1/r[x]);
            end;
          end;
      accum:=1/accum;
      ListboxLed.items.add (IntToStr(clicked) + '. Serie - ' + (floatToStr(accum)));
    end;

    if RdBtnSerie.Checked = true then
    begin
      accum2:= 0;
        for x := 1 to 7 do
          begin
            accum2:= accum2 + r[x];
          end;
        ListboxLed.items.add (IntToStr(clicked) + '. Serie - ' + (FloatToStr(accum2)));
      end;
  clicked:= clicked + 1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Clicked := 1;
end;

Så langt så godt. Men vil gerne lægge "ledene" i Listbox'en sammen og udskrive i en Editbox, men jeg aner simpelthen ikke hvordan, så ville høre om jeg kunne få lidt hjælp her.
Dette er hvad jeg tror jeg skal gøre, men det giver en fejl.

Kode 

procedure TForm1.BtnAdditionClick(Sender: TObject);
var
  ListItem: integer;
begin
  for ListItem:= 0 to ListboxLed.Items.Count -1 do
    begin
       Total:= Total + StrToFloat(ListboxLed.Items);
    end;
  EditTotal.Text:= FloatToStr(Total);
end;

Tak på forhånd. Vil hjælpe mig meget.

P.S. Aner intet om dette pointsystem, så har valgt 10 point, da det virkede almideligt. En evt. forklaring eller et link ville være skønt.

Thomas

Kode 

procedure TForm1.BtnAdditionClick(Sender: TObject);
var
  ListItem: integer;
begin
  for ListItem:= 0 to ListboxLed.Items.Count -1 do
    begin
       Total:= Total + StrToFloat(ListboxLed.Items[ListItem]);
    end;
  EditTotal.Text:= FloatToStr(Total);
end;