[Asinkrit]

Держи, проверил, работает...

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
  E: Variant;
  i: integer;
begin
  E:= CreateOleObject('Excel.Application');
  E.DisplayAlerts:= False;
  E.Workbooks.Add;
  for i:=0 to ListBox1.Items.Count-1 do
    E.WorkBooks[1].WorkSheets[1].Cells[i+1,1].Value:=ListBox1.Items.Strings[i];
  E.ActiveWorkbook.SaveAs('c:\1.xls');  //сохраняем вконце
  E.ActiveWorkbook.Close;              //незабываем закрыть!!!
  E.Application.Quit;                 //и покинуть ексель
end;