Как просуммировать цены в ListBox-e?

var i: word;
begin
for i := 0 to ListBox1.Items.Count do
sum := sum + StrToFloat(ListBox1.Items[i]) * Edit2.Text;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var
    i:integer;
  begin
    Label1.Caption:= '0';
    for i:= 0 to ListBox1.Count-1 do
      Label1.Caption:= FloatToStr(StrToFloat(ListBox1.Items.ValueFromIndex[i])+StrToFloat(Label1.Caption));
  end;

var i, j: word; s: string;
begin
for i := 0 to ListBox1.Items.Count do begin
  s := ListBox1.Items[i];
  for j := 1 to length(s) do
    if (s[i] in [0]..[9]) then begin
      s := copy(s, i, length(s) - i);
      break;
    end;
  sum := sum + StrToFloat(s) * Edit2.Text;
end;
end;

var i, j: word; s: string;
begin
for i := 0 to ListBox1.Items.Count do begin // идем по листбоксу
  s := ListBox1.Items[i]; // для удобства текущую строку листбокса в переменную
  for j := length(s) - 1 downto 1 do // с конца до начала строки
    if (not s[i] in ['0']..['9']) then begin // проверяем, является ли символ не циферным
      s := copy(s, i, length(s) - i); // если да, то отрезаем от этого символа, до конца строки
      break; // выходим из цикла
    end;
  sum := sum + StrToFloat(s) * Edit2.Text; // прибавляем значение к сумме
end;
// тут можно вывести значение суммы
end;