La solucion es expandir por codigo tanto la fila principal y la secundaria porque tenia 3 campos como filas y la columna principal porque solo tenia 2 campos en el Designer del DBPivotGrid de la siguiente forma:
Código Delphi
[-]
PivotGridmoneda.ExpandAll; (Columna principal)
PivotGridcadeca.ExpandAll; (Fila principal)
PivotGridcodigo.ExpandAll; (Fila secundaria)
Eso yo lo ejecuto despues de ejecutar la consulta y me expande todas las filas y columnas.
Saludos