How to make a shape array in delphi?

[LordJaffa]

I'm working on a project in delphi that requires a fairly large number of shapes in a form. They're all identical and all change following the same set pattern (It's a series of 7-segment display items) but all change at different times.

I've made a procedure to control them all separately but the code itself is messy. How would I assign the shape names as a 2-Dimensional array rather than a long list of variables?

Thanks to anyone who can answer my question.