procedure af_Xls_Save(XLSFile:string);
const
       xlExcel9795 = $0000002B;
       xlExcel8 = 56;
var
  ExcelApp, Sheet,ArrayData,Workbook: OLEVariant;
  Range,Cell1,Cell2:          OLEVariant;
  i,j,r, c:             integer;
  ClassID:              TCLSID;
  Rez :                 HRESULT;
  RowCount, ColCount :  integer;
  tX,tY :  OLEVariant;
begin
     //создаем объект Excel
   ExcelApp := CreateOleObject('Excel.Application');

  //делаем окно Excel невидимым
  ExcelApp.Visible := false;

  //создаем книгу для экспорта
  ExcelApp.Workbooks.Add;


  //создаем объект Sheet(страница) и указываем номер листа (1)
  //в книге, в который будем осуществлять экспорт
  Sheet := ExcelApp.Workbooks[1].WorkSheets[1];

  //задаем имя листу
  Sheet.name:='Данные_из_Delphi';

    //отключаем все предупреждения Excel
     ExcelApp.DisplayAlerts := False;

    //обработка исключения при сохраннении файла
    try
       //формат xls 97-2003 если установлен 2003 Excel
       ExcelApp.Workbooks[1].saveas(XLSFile, xlExcel9795);
       showmessage('Файл сохранил 2003-ий офис');
    except
      //формат xls 97-2003 если установлен 2007-2010 Excel
      ExcelApp.Workbooks[1].saveas(XLSFile, xlExcel8);
      showmessage('Файл сохранил 2007 или 2010-ый офис');
    end;

 //закрываем приложение Excel
 ExcelApp.Quit;

 //очищаем выделенную память
 ExcelApp := Unassigned;
 Sheet := Unassigned;
  exit  ;

...
  //задаем имя листу
  Sheet.name:='Данные_из_Delphi';
.....