DIM hTableIndex AS .TableIndex
FOR EACH hTableIndex
  ...
NEXT

Перечисляет все индексы, изменяя текущее представление индекса объектом.