No me funciona el código de ordenar campos por titulo

[[Nbull]]

Hola, estoy migrando un programa que tenia programado en delphi7 con BD Access a MySql.

Los dBgrid podia ordenarlos ascendente o descendentemente cuando pinchaba en el título de la columna con el siguiente código:

Código Delphi [-]
procedure TFGestion.DBGrid4TitleClick(Column: TColumn);
{$J+}
 const PreviousColumnIndex : integer = -1;
{$J-}
begin
  if DBGrid4.DataSource.DataSet is TCustomADODataSet then
  with TCustomADODataSet(DBGrid4.DataSource.DataSet) do
  begin
    try
      DBGrid4.Columns[PreviousColumnIndex].title.Font.Style :=
      DBGrid4.Columns[PreviousColumnIndex].title.Font.Style - [fsBold];
    except
    end;
    Column.title.Font.Style :=
    Column.title.Font.Style + [fsBold];
    PreviousColumnIndex := Column.Index;
    if (Pos(Column.Field.FieldName, Sort) = 1)
    and (Pos(' DESC', Sort)= 0) then
      Sort := Column.Field.FieldName + ' DESC'
    else
      Sort := Column.Field.FieldName + ' ASC';
  end;

Pues ahora que estoy empezando a usar componentes Nativos a MySql (Zeos), no me ordena el dbgrid.Pincho en cualquier título y no me hace nada.

¿He de cambiar algo en este código para que funcione con los Zeos?.

Gracias.Un Saludo.

[PepeLolo]

Buenas compañero.

Pues sí, cambia un poquito al no manejar componentes tipo

Código Delphi [-]
TCustomADODataSet

Lo que tienes que hacer es cerrar el dataset y añadir en la propiedad SQL el mandato

ORDER BY NombreCampo y tipoOrdenación

y posteriormente abrir el dataset.

Un saludo.