Итоги в Excel2003

[IUKA2011]

День добрый!
есть файл с данными.
Помогите пожалуйста обозначить через Delphi итоги в данном файле XLS
в VBA пишет:

Selection.Subtotal GroupBy:=33, Function:=xlSum, TotalList:=Array(12, 15, _
19, 20, 21, 22, 24, 25, 26, 27, 29), Replace:=True, PageBreaks:=False, _
SummaryBelowData:=True
Как это записать в Delphi ??
пишу:
xls := CreateOleObject('Excel.Application' );
xls.ActiveWorkbook.ActiveSheet.Used Range.select;
xls.Selection.Subtotal(GroupBy:=33, Function:=xlSum, TotalList:=Array[12, 15, 19, 20, 21, 22, 24, 25, 26, 27, 29], Replace:=True, PageBreaks:=False, SummaryBelowData:=True);
выдает ошибку..

Спасибо за ответ