Экспорт данных в Excel из нескольких таблиц БД

procedure TMainForm.ExpBtnClick(Sender: TObject);
var
  XL, Cell_01, Cell_02, ArrayData: Variant;
  RowCount: Integer;
  BeginCol, BeginRow, i, ColCount: byte;
begin
  // koordinat's up_ygol
  BeginCol := 1;
  BeginRow := 3;
  RowCount := DM.Stat.RecordCount;
  ColCount := 7;
  XL := CreateOleObject('Excel.Application');
  XL.Application.EnableEvents := False;
  XL.WorkBooks.Add;
  XL.Rows.Rows[2].Font.Bold := True;
  XL.Rows.Rows[2].Font.Size := 10;
  XL.Rows.Rows[2].WrapText := True;
  XL.Rows.Rows[2].HorizontalAlignment := 3;
  XL.Rows.Rows[2].VerticalAlignment := 2;
  XL.cells[2, 1] := 'Дата';
  XL.cells[2, 2] := 'Время начала';
  XL.cells[2, 3] := 'Время оконч.';
  XL.cells[2, 4] := 'Вид работ';
  XL.cells[2, 5] := 'Точка отправки';
  XL.cells[2, 6] := 'Подразделение';
  XL.cells[2, 7] := 'Примечание';
  XL.Columns.Columns[1].ColumnWidth := 15;
  XL.Columns.Columns[2].ColumnWidth := 15;
  XL.Columns.Columns[3].ColumnWidth := 15;
  XL.Columns.Columns[4].ColumnWidth := 20;
  XL.Columns.Columns[5].ColumnWidth := 20;
  XL.Columns.Columns[6].ColumnWidth := 15;
  XL.Columns.Columns[7].ColumnWidth := 20;
  ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], VarVariant);
  DM.Stat.First;
  for i := 1 to RowCount do
  begin
    ArrayData[i, 1] := DM.Stat['date_st'];
    ArrayData[i, 2] := DM.Stat['time_s'];
    ArrayData[i, 3] := DM.Stat['time_f'];
    ArrayData[i, 4] := DM.Stat['work'];
    ArrayData[i, 5] := DM.Stat['napr'];
    ArrayData[i, 6] := DM.Stat['id_podr'];
    ArrayData[i, 7] := DM.Stat['prim'];
    DM.Stat.Next;
  end;
  Cell_01 := XL.cells[BeginRow - 1, BeginCol];
  Cell_02 := XL.cells[BeginRow + RowCount - 1, BeginCol + ColCount - 1];
  XL.Range[XL.cells[BeginRow, BeginCol], Cell_02].Value := ArrayData;
  XL.Range[Cell_01, Cell_02].Borders.LineStyle := 1;
  XL.Visible := True;
end;