Subtotales en Excel

[tutuk]

hola utilizo lo siguiente para crear un archivo excel

//Crea la instancia (Abre Excel)
Excel := CreateOleObject('Excel.Application');

//Añade un Libro
Excel.WorkBooks.add;

//Pone Visible La Ventana
Excel.visible:=True;

grabe una macro de excel para ver que codigo usa para poner subtotales
es esta

Sub Macro1()


'
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(5, 6, 7, 8, _
        9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 23), Replace:=True, PageBreaks:=True, _
        SummaryBelowData:=True
End Sub
Sub Macro2()

y buscando en internet encontre esto :

Здрасте уважаемые!
Есть тема.
Выбираю данные из *.dbf и передаю их в Excel,
уже в доке необходимо после передачи сформировать ИТОГИ по нужным столбцам, для этого есть средство
SUBTOTAL,нап-р:
DataModule.Excel.Range[DataModule.Excel.Cells.Item[XXX,XXX],DataModule.Excel.Cells.Item[XXX,XXX]].Subtotal(2,1,7,0,0,1);
где 2-GroupBy;
  1-Function;
  7-TotalList(т.е. столбец по которму групп.)
  0-Replace(0-false,1-True)
  0-PageBreaks(0-false,1-True)
  1-SummaryBelowData(0-false,1-True)
Так вот, как можно сгруппир-ть не по одному столбцу, а по нескольким.

que parece estar en ruso o algo asi
alguien me ayuda a tratar de decifrar o esto o sabe como poner los subtotales de excel