Delphi - ordenar dbgrid

Quisiera por favor saber como puedo ordenar las filas de un dbgrid haciendo click en una de las columnas. Alguien ya respondió algo parecido, pero con un DBGrid enlazado a un TTable, y yo lo necesito para un DBGrid enlazado a un TQuery.
Gracias de antemano.

En el evento <OnTitleClick> del grid

SELECT ............. ORDER BY COLUMN.FIELDNAME tipoorden

tipoorden = la primera vez ASC si vuelven a pulsar DESC