Сортировка записей таблицы Опции

[klem4]

Такблица paradox. Записи сортируются, но система не хочет реагировать на указания связанные с направлением сортировки, всегда сортирует по возрастанию, почему ?

procedure TfrmStore.Button1Click(Sender: TObject);
begin
  with frmMain.tblStore do begin
    if rdBtnByOperationNumber.Checked then
     IndexName := ''
    else
     if rdBtnByDate.Checked then
       IndexName := 'indSDate'
      else
       if rdBtnByGoodsCode.Checked then
        IndexName := 'indSGoodsCode'
         else begin
           MessageDlg('Необходимо выбрать поле сортировки', mtInformation, [mbOk], 0);
           Abort;
         end;

     if chkBxDesc.Checked then  // <<-------------- Направление должно зависеть от чекбокса ...
      IndexDefs[IndexDefs.IndexOf(IndexName)].Options :=
       IndexDefs[IndexDefs.IndexOf(IndexName)].Options + [ixDescending]
      else
       IndexDefs[IndexDefs.IndexOf(IndexName)].Options :=
        IndexDefs[IndexDefs.IndexOf(IndexName)].Options - [ixDescending]
    end;
end;

[klem4]

А как можно поступить в такой ситуации ? В учебнике смотрю, там автор делает также, изменяет эти опции в рантайме ... Странно.