Delphi - Ordenar registros por campos en un dbgrid

como ordeno los registros en un dbgrid, al clickear algun campo de los titulos.
por ejemplo.
que al clickear en un campo llamado codigo en el dbgrid, se ordene por ese campo, y asi sucesivamente.

no recuerdo si es en el evento OnTitleClick o OnCellClick,ahi saca la columna en la q estas haciendo el click y ordena por ese campo.

Si es un table pues con el metodo Sort y si es query pues con SQL

Evento OnTitleClick:

Case Column.Index Of
0 : Table1.IndexName:='codigo';
1 : Table1.IndexName:='nombre';
2 : Table1.IndexName:='fecha';

Recuerda que el numero ded las columnas comienza de CERO