Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Проверить, существует ли индекс

01.01.2007
  if exists(
    SELECT
*
    FROM sysobjects o
    INNER JOIN sysindexes i
      ON o
.id = i.id
    WHERE o
.xtype = 'U' AND
          i
.indid > 0 AND
          i
.indid < 255 AND
          INDEXPROPERTY
(i.id, @IndexName, 'isStatistics') = 0 AND
          o
.name = @TableName)
   
Set @exists=1
 
else
   
Set @exists=0

Автор: Vit