for i := 0 to ListBox1.items.Count-1 do

memo1.lines.add(ListBox1.items[i]);