aehm ja? bei mir funktioniert der code unter delphi 7 wunderbar, bei mir wird der index korrekt angezeigt
P.S. hast du den code auch ins OnExecute-Event von der Action gepackt?
[EDIT]hab die actions im action manager auch n bischen vertauscht usw., bei mir funzt der code trotzdem noch ^^ [/EDIT]