Tabla Dinamica a Excel con Delphi

[jofebas]

este es el codigo de la tabla.

el error me dice lo siguiente
EOleException whith message 'OLE error 800A03EC'.

Código Delphi [-]
 
//tabla
    Hoja.Range['A' + inttostr(i+5),'A' + inttostr(i+5)].Activate;
    Hoja.PivotTableWizard(EmptyParam, 'A5:AL' + inttostr(i-4),'REPORTE',
                          'Tabla1', EmptyParam, EmptyParam, EmptyParam,
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                          EmptyParam, 0);
    GD := Hoja.PivotTables('TablaDin', 0) as PivotTable;
    GD.AddFields('A','C','AL', EmptyParam);
    (GD.PivotFields('AVERAGE(AL)') as PivotField).Orientation := xlDatafield;