[Kis]

Всем привет. такая сложность...нужно из листбокса выгрузить данные в одну(!) ячейку.

Код:

 for i:=0 to ListBox1.Count-1 do
    begin
    Sheet.cells[11,2]:=listbox1.Items.Strings[i];

таким образом у меня в ячейку записывается только последняя строка из листбокса. а как сделать чтобы выгружались все через запятую?