Ayuda con TCustom

[gilberto_1126]

Saludos foristas

Aqui me encontre un codigo para oredanr un dbgrid dando clic en las columnas, aqui lo muestro:

Código Delphi [-]
procedure TFProximo.RxDBGrid1TitleClick(Column: TColumn);
var
  DataSet:TDataSet;
begin
  if not FMovingColumn then
  begin
    DataSet:=Column.Field.DataSet;
    if DataSet is TCustomADODataSet then
      with TCustomADODataSet(DataSet) do
      begin
        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;
  end;
  FMovingColumn:=false;
end;

En vez de componentes ADO utilizo los de MySql entonces cambio el TCustomADODataset por TCustomMySqlDataSet, pero me marca un error, que no es valido el TCustomMySQLDataSet.

Alguien me podria decir como es la sentencia en el custom con my sql???

de antemano muchas gracias por su tiempo.

[waltergomez]

Creo que la propiedad en My... es SortFieldNames y no Sort como en los ADO... y existe un metodo SortBy.
Saludos,

[gilberto_1126]

Gracias pero creo que no es la respuesta que necesito, como comento el error me lo marca en el TCustomMySqlDataset, como lo indique en su momento. Lo que me gusytaria saber es si esta la instruccion o que me este faltando algo???'