Ordenar DBGRID en Delphi 10 Seattle.

[waly2k1]

    if qryPROD.Sort = Column.FieldName then
    begin
        qryPROD.Sort := Column.FieldName + ' DESC'
    end
    else
    begin
        qryPROD.Sort := Column.FieldName;
    end;

Despues los coloreas como quieras a la cabecera, esto es con ADO como en tu ej. y me manejo directamente con la consulta
Saludos

[[oscarac]]

saludos
he probado esta rutina para ordenar, pero en la primera linea
la condicion es falsa por eso no entra al bloque del if

Código Delphi [-]
if DBGrid1.DataSource.DataSet is TCustomADODataSet then

que significa esto?
es decir, cual es la pregunta?
entiendo que es para los que usan ADO, pero y si uso FireDac?