Como Ordenar Un Tdbgrid Con Clic En Columna

[maruenda]

esto lo tengo en el evento ontittleclick del tdbgrid. cada columna corresponde a un campo.
case (column.index) of
0rden:=' ORDER BY CODIGOCOLOR';
1rden:=' ORDER BY COLOR';
2rden:=' ORDER BY CANTIDAD';
3rden:=' ORDER BY FECHA';
else
orden:=' ORDER BY MOVIMIENTO';
end;
IF (SENTIDO=' ASC')THEN
BEGIN
SENTIDO:=' DESC';
END
ELSE
SENTIDO:=' ASC';
CADENALECTURA:=PRIMERACADENA+CONDICION+MOVIMIENTO+ORDEN+SENTIDO;
QHISTORICO.CLOSE;
QHISTORICO.SQL.Clear;
QHISTORICO.SQL.Add(CADENALECTURA);