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

procedure TForm1.Button1Click(Sender: TObject);
  var
    i,j: integer;
    s: string;
  begin
    Label1.Caption:= '0';
    for i:= 0 to ListBox1.Items.Count-1 do begin   // идем по листбоксу
      s:= ListBox1.Items[i];
      for j:= Length(s)-1 downto 1 do              // с конца до начала строки
        if s[j] = ' ' then begin                   // проверяем, является ли символ пробелом
          s:= Copy(s,j+1,Length(s)-j+1);           // если да, то отрезаем от этого символа до конца строки
          break;                                   // выходим из цикла
        end;
      Label1.Caption:= FloatToStr(StrToFloat(Label1.Caption)+StrToFloat(s));
    end;
  end;

S:=ListBox.Items[i];
Trim(S);
S:=Copy(S,LastDelimiter(' ',S)+1,Length(S)-LastDelimiter(' ',S)+1);
Cena:=StrToInt(S);

S:=Copy(S,LastDelimiter(' ',S)+1,Length(S)-LastDelimiter(' ',S)+1);

S:=AnsiRightStr(S,Length(S)-LastDelimiter(' ',S));

procedure MemoParser;
var
  Stream: TMemoryStream;
begin
   Form1.MemoResult.Clear;
   // Создаем поток
   Stream := TMemoryStream.Create;
   // Загружаем в него текст из Memo
   Stream.WriteBuffer( Form1.MemoCode.Text[1], Length( Form1.MemoCode.Text ) );
   Stream.Position := 0;
   with TParser.Create( Stream ) do
      // Пока не дошли до конца потока...
      while Token <> toEof do
      begin
         if Token = toInteger then
            Form1.MemoResult.Lines.Add( TokenString );
         NextToken;
      end;
   Stream.Free;
end;