[Asinkrit]

Ладно, вот тебе подсказка, для одного из листбоксов твоих,

Код:

  ...
  for i:=0 to ListBox1.Items.Count-1 do
    XL.WorkBooks[1].WorkSheets[1].Cells[1,i].Value:=ListBox1.Items.Strings[i];
  ...