IndexDef en ADODataSet

[Jere_84]

Estoy creando un indice persistente en un ADODataSet pero no ordena la información, mi código es el siguiente:

Código Delphi [-]
    ADODataSetInforArtic.IndexDefs.Clear;
    case ComboBoxOrden.AsValue of
      0: begin
           with ADODataSetInforArtic.IndexDefs.AddIndexDef do
           begin
             Name := 'DenomArtic';
             Fields := 'DenomArtic';
             if ComboBoxOrden.Buttons.Image1.Id = 59 then
               Options := [ixDescending];
             ADODataSetInforArtic.IndexName := Name;
           end;
         end;

Que estoy haciendo mal?