Соединить строки ListBox в одну

Question

Подскажите, пожалуйста, как можно объединить все строки ListBox в одну?

Делаю вот так, но кажется что-то неверно:

 begin
  i := 1;
  while i < ListBox1.Count do
    s := ListBox1.Items[i] + '+' + ListBox1.Items[i + 1];
  Inc(i);
  Edit4.Text := s;
end;

Answer 1

Обычно, склеивается вот так:

uses StrUtils;

...

s := '';
for I := 0 to ListBox1.Count - 1 do
  s := s + IfThen(s <> '', '+') + ListBox1.Items[I];

Edit4.Text := s;

Answer 2

Можно использовать стандартные методы свойства TListBox.Items класса TStrings

ListBox1.Items.Delimiter := '+';
Edit4.Text := ListBox1.Items.DelimitedText;