Delphi. В БД PARADOX 7 по данному индексу не происходит сортировка

[IzvergDelphi]

procedure TForm8.chk1Click(Sender: TObject);
begin
if chk1.Checked=True
  then
    begin
tbl4.IndexName:='i_k' ;
end
else
if chk1.Checked=False
  then
    begin
tbl4.IndexName:='' ;
end;
end;

Почему В БД PARADOX 7 по данному индексу не происходит сортировка? Уже и новую БД создавал и индекс удалял-не помогло. Задача состоит в том, что нужно не пользоваться запросами и не использовать SQL(т.к. преподы любят старые методы)