Нужна помощь по ячейкам в Excel

RXLExp_Font = record
    Name: TFontName;                 // Название шрифта (если '', то Default
    Color: TColor;                // Цвет шрифта
    Size: ShortInt;               // Размер шрифта (если AutoSize=true, игнорируется)
    Style: TFontStyles;           // Стиль (fsBold,fsItalic,fsUnderline,fsStrikeOut)
  end;
 
  RXLExp_CellsProp = record       // ******** Свойства ячеек
    Align: RXLExp_Text;           // Выравнивание текста внутри ячейки
    Font:  RXLExp_Font;           // Фонт
    Width: integer;               // Ширина ячейки в ед.Excel (если -1, то не уст-ся)
    Height: integer;              // Высота ячейки в ед.Excel (если -1, то не уст-ся)
    Value: OleVariant;            // Значение ячейки
    Color: TColor;                // Цвет фона
    // ВАЖНО ! При установке цвета фона следует учитывать, что палитра цветов
    // Excel`а существенно отличается от принятого в Windows, что может привести
    // к тому, что вместо светло-серого ячейки окрасятся в черный, т.к. полутона
    // екселем интерпретируются в полный, насыщенный цвет палитры RGB
  end;
 
  RXLExp_Region = record
    ColLeft: word;                // Колонка начала
    RowTop: word;                 // Строка начала
    ColRight: word;               // Колонка конца
    RowBottom: word;              // Строка конца
    JoinCells: boolean;           // Объединения ячеек (только для региона)
    Text: string;                 // Текст в ячейках
  end;
 
procedure XLEXP_SetCellsProp(Region: RXLExp_Region; CellsProp: RXLExp_CellsProp);
// Присваивает ячейкам заданного района указанные свойства
begin
  with XLExp_Sheet.Range[XLExp_Col[Region.ColLeft]+IntToStr(Region.RowTop),
                    XLExp_Col[Region.ColRight]+IntToStr(Region.RowBottom)] do
    begin
     case CellsProp.Align.Hor of
       ehaLeft: HorizontalAlignment := xlLeft;
       ehaRight: HorizontalAlignment := xlRight;
       ehaCenter: HorizontalAlignment := xlCenter;
       ehaNone: HorizontalAlignment := xlDefaultAutoFormat;
     end;
     case CellsProp.Align.Vert of
       evaResize: VerticalAlignment := xlGeneral;
       evaMultiLine: VerticalAlignment := xlDistributed;
       evaTop: VerticalAlignment := xlTop;
       evaBottom: VerticalAlignment := xlBottom;
       evaCenter: VerticalAlignment := xlCenter;
       evaNone: VerticalAlignment := xlDefaultAutoFormat;
     end;
     WrapText := CellsProp.Align.WrdWrap;
     Font.Bold := fsBold in CellsProp.Font.Style;
     Font.Italic := fsItalic in CellsProp.Font.Style;
     Font.Strikethrough := fsStrikeOut in CellsProp.Font.Style;
     Font.Subscript := fsUnderline in CellsProp.Font.Style;
     Font.Color := CellsProp.Font.Color;
     Font.Size := CellsProp.Font.Size;
     if CellsProp.Font.Name>'' then Font.Name := CellsProp.Font.Name;
     Interior.Color := CellsProp.Color;
     if CellsProp.Width>-1 then Columns.ColumnWidth := CellsProp.Width;
     if CellsProp.Height>-1 then Rows.RowHeight := CellsProp.Height;
     MergeCells := Region.JoinCells;
     if Region.Text>'' then Value := Region.Text;
    end;
    //--------------------------------------------------------------------------
    //преобразование формата в ячеек в текстовый всю выделенную область
    XLExp_Sheet.Range[XLExp_Col[Region.ColLeft]+IntToStr(Region.RowTop),
    XLExp_Col[Region.ColRight]+IntToStr(Region.RowBottom)].NumberFormat:= '@';
    // @ этот параметр устанавливает текстовый формат
    // 0 - числовое значение
    // m/d/yyyy - дата
    // #,##0.00$ - денежный
    //--------------------------------------------------------------------------
end;
 
procedure XLEXP_GetCellsProp(Region: RXLExp_Region; var CellsProp: RXLExp_CellsProp);
// Возращает объект "Свойства" для указанного района ячеек
begin
  with XLExp_Sheet.Range[XLExp_Col[Region.ColLeft]+IntToStr(Region.RowTop),
                    XLExp_Col[Region.ColRight]+IntToStr(Region.RowBottom)] do
    begin
     CellsProp.Align.WrdWrap := WrapText;
     CellsProp.Font.Style := [];
     if Font.Bold then Include(CellsProp.Font.Style,fsBold);
     if Font.Italic then Include(CellsProp.Font.Style,fsItalic);
     if Font.Strikethrough then Include(CellsProp.Font.Style,fsStrikeOut);
     if Font.Subscript then Include(CellsProp.Font.Style,fsUnderline);
     CellsProp.Font.Color := Font.Color;
     CellsProp.Color := Interior.Color;
 
     if CellsProp.Width>-1 then Columns.ColumnWidth := CellsProp.Width;
     if CellsProp.Height>-1 then Rows.RowHeight := CellsProp.Height;
     Region.JoinCells := MergeCells;
    end;
end;

var
  XLExp_Report: TExcelApplication;
  XLExp_WorkBook: Excel2000.ExcelWorkBook;
  XLExp_Sheet: Excel2000.ExcelWorkSheet;
  XLExp_Col: array [1..40] of string=('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','AA','AB','AC','AE','AD','AE','AF','AG','AH','AI','AJ','AK','AL','AM');