Проблемы с TTable.FindKey

[KiSH333]

Привет всем.
Есть такая проблема, у меня был пойск FindKey по группе полей, возниела необходимось в этот поиск добавить новое поле Discount.

Вот создание моей таблицы где я зоздаю ключ поиска

TbSP5 := TTable.Create(nil);
    with TbSP5 do begin
      DatabaseName := TmpDir;
      TableName := 'SP5.db';
      AddIndex('IPrimary', 'PVagon;PPlace;PLiter;IndexIzd;SubIndexIzd;KindDeliver;KindPodp;Discount',
        [ixPrimary]);
      AddIndex('ISetOrder', 'FKey;NameIzd', [ixCaseInsensitive]);
      IndexName := '';
      Open;
    end;

Но проблема в том что в строке где я добавляю индекс IPrimary возникает ошибка Number is out of Range...

У кого были подобные трудности просьба ответить и дать совет...

[mihali4]

А если открыть хэлп про метод "CreateTable method (TTable)", посмотреть там пример "Table Creation example" и сделать, как умные люди там написали?

[KiSH333]

Сообщение от mihali4

А если открыть хэлп про метод "CreateTable method (TTable)", посмотреть там пример "Table Creation example" и сделать, как умные люди там написали?

Я в курсе как таблицы создаются, просто что самое интересное
так работает

AddIndex('IPrimary', 'PVagon;PPlace;PLiter;IndexIzd;SubIndexIzd;KindDeliver;KindPodp',
        [ixPrimary]);

а так уже нет

AddIndex('IPrimary', 'PVagon;PPlace;PLiter;IndexIzd;SubIndexIzd;KindDeliver;KindPodp;Discount',
        [ixPrimary]);