В Delphi 2010 есть ли способ итерации через любое индексированное свойство (например, Pages of TPageControl)?