[mik]

Тогда вот так:

Код:

Table1.AddIndex('ИмяИндекса', 'СписокПолей', [опции]);

Только таблица должна быть открыта монопольно.

Код:

Table1.Exclusive := True;