Ok, here it is. A very basic, Q&D example of how you could do something like what you wanted.
It uses a dynamic array to hold (and get back) the page indexes but it also shows how to use a TListBox to show the current list of pages, if any. After "play-back" the list is cleared and all is ready to start again.
As said before, it's just a Q&D demo and for a release I'd probably add at least a helper to deal more easily with the array, and some other things. All in all, though, it shows the basics of how it might work.
To use just click or "tab" to several pages randomly and then click the buttons to show the list or play back the page changes.
HTH!