Не могу создать новый индекс в Delphi Опции

[Гена]

Не получается создать новый индекс.

Код

procedure TForm9.Button1Click(Sender: TObject);
var i:integer;
    s:string[30];
begin
  Case pagecontrol1.ActivePageIndex of
  0: begin
     with mdb.DataModule2.Person do
       begin
       For i:=0 to form1.DBGrid1.FieldCount-1 do
         If form1.DBGrid1.Columns[i].Title.Caption=radiogroup1.Items[radiogroup1.ItemIndex] then
           begin
           s:=form1.DBGrid1.Columns[i].FieldName;
           break;
           end;
       end;
     mdb.DataModule2.Person.AddIndex(s+'index',s,[]);
     mdb.DataModule2.Person.IndexName:=s+'index';
     end;
  end;
end;

Пишет:
Invalid index\tag name
index does not exists
Index: MFioindex

Эксклюзивный доступ к таблице стоит.

Сообщение отредактировано: Гена - 24.04.2007 22:11

[volvo]

Какая БД? (и, заодно, способ доступа к ней напиши)

[Гена]

Таблицы Парадокс. Использую BDE. Нужно сортировку сделать, а он так ругается. Притом полей в таблице много (3 таблицы всего 15 полей), делать индекс для каждого поля по возрастанию и убыванию не хочется. Или все же лучше так? И как вообще умные люди такие вещи делают?