Создание/пересоздание индекса
01.01.2007
DbiRegenIndexes( Table1.Handle ); { Регенерация всех индексов }
create index (зависит от существования выражения)
if (( Pos('(',cTagExp) + Pos('+',cTagExp) ) > 0 ) then
Table1.AddIndex( cTagName, cTagExp, [ixExpression]) // <- ixExpression - _литерал_
else
Table1.AddIndex( cTagName, cTagExp, []);
Взято с https://delphiworld.narod.ru