Я нашел простой способ получения убывающего индекса. В Delphi это получается очень легко и красиво:
[001256]