Delphi - Array Tridimensionales

Quiero hacer lo siguiente:

tengo una tabla en la cual tengo almacenado: ( campos tipo:Char y color:char)

TIPO COLOR

PANTALON ROJO
CAMISA AZUL
CAMISETAS ROJAS
CALCETIN AZUL
PANTALON VERDE
CAMISA NEGRA
CAMISA AZUL
CALCETIN AZUL
CAMISETAS ROJAS
PANTALON VERDE
TOTAL 10

UNA VEZ QUE TENGO ESTOS DATOS GENERAR UN LISTADO COMO
EL SIGUIENTE:

PANTALON VERDE 2
PANTALON ROJO 1
CAMISA AZUL 2
CAMISA NEGRA 1
CAMISETAS ROJAS 2
CALCETIN AZUL 2
TOTAL 10

ESTOS DATOS PASARLOS A UN CHART, ¿ ALGUIEN ME PUEDE AYUDAR ?

AGRADESCO SU APOYO, MUCHAS GRACIAS ...

¿Y eso que tiene que ver con arrays tridimensionales?. Lo que necesitas es una consulta del estilo:

SELECT
TIPO,
COLOR,
COUNT(*)
FROM
TuTabla
GROUP BY
TIPO,
COLOR

Espero que te sirva.