var
  IntlXls:  TXLSReadWriteII2;
  I, J: Integer;

begin
    // создаем объект
    IntlXls := TXLSReadWriteII2.Create(nil);

      // название книги
      IntlXls.Sheets[0].Name := ‘Название моего отчета’;
      // добавляем необходимое количество строк и колонок
      IntlXls.Sheets[0].Rows.AddIfNone(0, 10000);
      IntlXls.Sheets[0].Columns.AddIfNone(0, 100);

      // добавляем и заносим ширины ячеек (значение в пикселях)
      for I := 0 to 99 do
        IntlXls.Sheets[0].Columns[I].PixelWidth := 150;
      // заносим высоты строк (значение здесь не в пикселях, поэтому нужно корректировать)
      for I := 0 to 9999 do
        IntlXls.Sheets[0].Rows[I].Height := 20 * 14;

      // настраиваем 
      for J := 0 to 9999 do
        for I := 0 to 99 do
          begin
             // заносим числовое значение 
             // если нужно например занести строку, то использовать AsString
             IntlXls.Sheets [0]. AsFloat [I, J] := J + I / 100;

              // выравнивание по горизонтали (доступно chaLeft, chaCenter, chaRight)
             IntlXls.Sheets[0].Cell[I, J].HorizAlignment := chaLeft;

             // выравнивание по вертикали (доступно cvaTop, cvaCenter, cvaBottom)
             IntlXls.Sheets[0].Cell[I, J].VertAlignment := cvaTop;

            // шрифт
            IntlXls.Sheets[0].Cell[I, J].FontName    := ‘Arial’;
            IntlXls.Sheets[0].Cell[I, J].FontSize    := 12;
            IntlXls.Sheets[0].Cell[I, J].FontStyle   := [];
            IntlXls.Sheets[0].Cell[I, J].FontColor   := TColorToClosestXColor(clBlue);
            IntlXls.Sheets[0].Cell[I, J].Rotation    := 0;
             // жирное начертание
             with IntlXls.Sheets[0].Cell[I, J] do
               FontStyle := FontStyle + [xfsBold];
               // наклонное начертание
               with IntlXls.Sheets[0].Cell[I, J] do
                 FontStyle := FontStyle + [xfsItalic];
                      // цвет фона
                      IntlXls.Sheets[0].Cell[I, J].FillPatternForeColor :=
                          TColorToClosestXColor(clYellow);

                      // бордюр слева (аналогично и остальные бордюры)
                      IntlXls.Sheets[0].Cell[I, J].BorderLeftColor := TColorToClosestXColor(clBlack);
                      IntlXls.Sheets[0].Cell[I, J].BorderLeftStyle := cbsThin;

                      // объединение ячеек (здесь объединяются две ячейки по горизонтали)
                      if I = 49 then
                        IntlXls.Sheets[0].MergedCells.Add(
                          I,
                          J,
                          I + 1,
                          J
                      );
           end;

        IntlXls.SaveToFile(‘c:\demo.xls’);
        IntlXls.Free;

  end;

Полный пример для Delphi 7:

  function ExportToExcelXls(
    var AFileName: string
    ): Integer;
  var
    IntlXls:     TXLSReadWriteII2;
    IntlCol:     Integer;
    IntlRow:     Integer;
    IntlMainCol: Integer;
    IntlMainRow: Integer;
  begin
    // инициализируем статус
    prgrbrStatus.Max      := FLinkReport.RowCount;
    prgrbrStatus.Position := 0;
    pnlStatus.Visible     := TRUE;
    pnlStatus.Refresh;
    // добавлено в конце имени файла расширение ‘.XLS’?
    if Length(AFileName) < 5 then
      // добавляем
      AFileName := AFileName + ‘.xls’
    else if AnsiCompareText(Copy(AFileName, Length(AFileName) — 3, 4), ‘.xls’) <> 0 then
      // добавляем
      AFileName := AFileName + ‘.xls’;
    // файл уже существует?
    if FileExists(AFileName) then
      // спросим
      if Application.MessageBox(
           PChar(‘Файл «‘ + AFileName + ‘» уже существует. Перезаписать?’),
           ‘Внимание’,
           MB_TASKMODAL + MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2
           ) <> IDYES then
        // выходим
        begin
          // код ошибки
          Result := UNIRPT_GENERATE_ABORT;
         
          // выходим
          Exit;
        end;  // if
    // создаем объект
    IntlXls := TXLSReadWriteII2.Create(nil);
    // все делаем защищаясь
    try
      // название книги
      IntlXls.Sheets[0].Name :=FLinkReport.Caption;
      // добавляем необходимое количество строк и колонок
      IntlXls.Sheets[0].Rows.AddIfNone(0, FLinkReport.Cells.RowCount + 1);
      IntlXls.Sheets[0].Columns.AddIfNone(0, FLinkReport.Cells.ColCount + 1);
      // добавляем и заносим ширины ячеек
      for IntlCol := 0 to FLinkReport.Cells.ColCount — 1 do
        IntlXls.Sheets[0].Columns[IntlCol].PixelWidth := FLinkReport.ColWidths[IntlCol];
      // заносим высоты строк 
      for IntlRow := 0 to FLinkReport.Cells.RowCount — 1 do
        IntlXls.Sheets[0].Rows[IntlRow].Height := FLinkReport.RowHeights[IntlRow] * 14;
      // проходим по всем строкам
      for IntlRow := 0 to FLinkReport.Cells.RowCount — 1 do
        begin
          // проходим по всем колонкам
          for IntlCol := 0 to FLinkReport.Cells.ColCount — 1 do
            begin
              // определяем главную ячейку
              IntlMainCol := IntlCol + FLinkReport.Cells[IntlCol, IntlRow].Range.Left;
              IntlMainRow := IntlRow + FLinkReport.Cells[IntlCol, IntlRow].Range.Top;
              // заносим оформление
              with FLinkReport.Cells[IntlMainCol, IntlMainRow] do
                begin
                  // главная ячейка?
                  if (IntlMainCol = IntlCol) and (IntlMainRow = IntlRow) then
                    // да, заносим текст и его оформление
                    begin
                      // значение
                      try
                        // если значение — число то заносим его как число
                        IntlXls.Sheets [0]. AsFloat [IntlCol, IntlRow] := StrToFloat (Value);
                      except
                        // иначе заносим его как строку
                        IntlXls.Sheets [0]. AsString [IntlCol, IntlRow] := Value;
                      end;

                      // выравнивание по горизонтали
                      case HorizAlign of
                        haLeft:
                          // выравнивание слева
                          IntlXls.Sheets[0].Cell[IntlCol, IntlRow].HorizAlignment := chaLeft;
                        haCenter:
                          // выравнивание по центру
                          IntlXls.Sheets[0].Cell[IntlCol, IntlRow].HorizAlignment := chaCenter;
                        haRight:
                          // выравнивание справа
                          IntlXls.Sheets[0].Cell[IntlCol, IntlRow].HorizAlignment := chaRight;
                      end;  // case
                      // выравнивание по вертикали
                      case VertAlign of
                        vaTop:
                          // выравнивание сверху
                          IntlXls.Sheets[0].Cell[IntlCol, IntlRow].VertAlignment := cvaTop;
                        vaCenter:
                          // выравнивание в центре
                          IntlXls.Sheets[0].Cell[IntlCol, IntlRow].VertAlignment := cvaCenter;
                        vaBottom:
                          // выравнивание снизу
                          IntlXls.Sheets[0].Cell[IntlCol, IntlRow].VertAlignment := cvaBottom;
                      end;  // case
                      // шрифт
                      IntlXls.Sheets[0].Cell[IntlCol, IntlRow].FontName    := Font.Name;
                      IntlXls.Sheets[0].Cell[IntlCol, IntlRow].FontSize    := Font.Size;
                      IntlXls.Sheets[0].Cell[IntlCol, IntlRow].FontCharset := Font.Charset;
                      IntlXls.Sheets[0].Cell[IntlCol, IntlRow].FontStyle   := [];
                      IntlXls.Sheets[0].Cell[IntlCol, IntlRow].FontColor   := TColorToClosestXColor(Font.Color);
                      IntlXls.Sheets[0].Cell[IntlCol, IntlRow].Rotation    := Font. Angle;
                      // есть жирное начертание?
                      if Font.IsBold then
                        // есть
                        with IntlXls.Sheets[0].Cell[IntlCol, IntlRow] do
                          FontStyle := FontStyle + [xfsBold];
                      // есть наклонное начертание?
                      if Font.IsItalic then
                        // есть
                        with IntlXls.Sheets[0].Cell[IntlCol, IntlRow] do
                          FontStyle := FontStyle + [xfsItalic];
                      // цвет фона
                      if Color <> clWindow then
                        // цвет задан
                        IntlXls.Sheets[0].Cell[IntlCol, IntlRow].FillPatternForeColor :=
                          TColorToClosestXColor(Color);
                    end  // if
                  else
                    // просто активизируем ячейку (иначе ниже невозможно добавить бордюры)
                    IntlXls.Sheets[0].AsString[IntlCol, IntlRow] := »;
                   
                  // бордюр слева есть?
                  with Borders.Left do
                    if LineHeight > 0 then
                      // настраиваем
                      begin
                        // цвет
                        IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderLeftColor :=
                          TColorToClosestXColor(Color);
                        // толщина
                        if LineHeight = 1 then
                          // тонка
                          IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderLeftStyle := cbsThin
                        else if LineHeight in [1, 2] then
                          // средняя толщина
                          IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderLeftStyle := cbsMedium
                        else
                          // толстая
                          IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderLeftStyle := cbsHair;
                      end;  // if, with
                  // бордюр сверху есть?
                  with Borders.Top do
                    if LineHeight > 0 then
                      // настраиваем
                      begin
                        // цвет
                        IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderTopColor :=
                          TColorToClosestXColor(Color);
                        // толщина
                        if LineHeight = 1 then
                          // тонка
                          IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderTopStyle := cbsThin
                        else if LineHeight in [1, 2] then
                          // средняя толщина
                          IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderTopStyle := cbsMedium
                        else
                          // толстая
                          IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderTopStyle := cbsHair;
                      end;  // if, with
                  // бордюр справа есть?
                  with Borders.Right do
                    if LineHeight > 0 then
                      // настраиваем
                      begin
                        // цвет
                        IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderRightColor :=
                          TColorToClosestXColor(Color);
                        // толщина
                        if LineHeight = 1 then
                          // тонка
                          IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderRightStyle := cbsThin
                        else if LineHeight in [1, 2] then
                          // средняя толщина
                          IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderRightStyle := cbsMedium
                        else
                          // толстая
                          IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderRightStyle := cbsHair;
                      end;  // if, with
                  // бордюр снизу есть?
                  with Borders.Bottom do
                    if LineHeight > 0 then
                      // настраиваем
                      begin
                        // цвет
                        IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderBottomColor :=
                          TColorToClosestXColor(Color);
                        // толщина
                        if LineHeight = 1 then
                          // тонка
                          IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderBottomStyle := cbsThin
                        else if LineHeight in [1, 2] then
                          // средняя толщина
                          IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderBottomStyle := cbsMedium
                        else
                          // толстая
                          IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderBottomStyle := cbsHair;
                      end;  // if, with
                  // объединение нужно?
                  if ((Range.Width > 1) or (Range.Height > 1)) and
                     ((IntlMainCol = IntlCol) and (IntlMainRow = IntlRow)) then
                    // объединяем
                    IntlXls.Sheets[0].MergedCells.Add(
                      IntlCol,
                      IntlRow,
                      IntlCol + Range.Width — 1,
                      IntlRow + Range.Height — 1
                      );
                  // пользователь нажал кнопку прерывания экспорта?
                  if btnCancel.Tag = 2 then
                    // да, выходим
                    Break;
                end;  // with
            end;  // for
          // обновляем статус
          prgrbrStatus.Position := prgrbrStatus.Position + 1;
          Application.ProcessMessages;
          // пользователь нажал кнопку прерывания экспорта?
          if btnCancel.Tag = 2 then
            // да, выходим
            Break;
        end;  // for
      // пользователь нажал кнопку прерывания экспорта?
      if btnCancel.Tag <> 2 then
        // нет
        begin
          // на левый верхний угол
          IntlXls.Sheet[0].TopRow              := 0;
          IntlXls.Sheet[0].LeftCol             := 0;
          IntlXls.Sheet[0].Selection.ActiveRow := 0;
          IntlXls.Sheet[0].Selection.ActiveCol := 0;
         
          // статус
          prgrbrStatus.Position := prgrbrStatus.Max;
          Application.ProcessMessages;
          // записываем в файл
          IntlXls.FileName := AFileName;
          IntlXls.Write;
          // все успешно
          Result := UNIRPT_OK;
         
        end  // if
      else
        // да
        Result := UNIRPT_GENERATE_ABORT; 
       
    finally
      // освобождаем память
      IntlXls.Free;
     
    end;  // try..finally
  end;  // function ExportToExcelXls

Лично я использую XLSReadWrite — вышеуказанных недостатков нет (таблица, указанную выше, у меня генерится за 0.4 секунды). Будет интересно — могу выложить реальный код примера