recuentos mediante sql o delphi

[Dark_RavenM]

A Mi Se Me Hace Que Seria Mejor Hacerlo Con Sql Asi Sacas Un Resultado Y Lo Puedes Mostrar En Un Datagrid rapida y facilmente, Algo Como

Select W.col1,count(w.col2) Menos30,
(select Count(w2.col2) From Wine W2 Where W2.col2>30 And W2.col2<60 And W2.col1=w.col1) Menos60,
Count(w.col2)+(select Count(w2.col2) From Wine W2 Where W2.col2>30 And W2.col2<60 And W2.col1=w.col1) Total
From Wine W Where W.col2<=30 Group By W.col1

Se Que Hay Una Manera Mas Rapida Pero Ahorita No Se Me Ocurre Una