Namen TShape zusammensetzen

[Student81]

Hallo zusammen, ich habe folgendes Problem:

Ich habe unter anderem 500 Shapes (Quadrate). Der User gibt eine Startzahl ein und es wird von dieser Zahl an ein Intervall von 500 Zahlen durchlaufen. Wenn eine Primzahl gefunden wird, spielt der PC einen Ton, und das entsprechende Quadrat soll angemalt werden.
Nun möchte ich wenn irgendwie möglich diese Shapes in meiner Intervall-Schleife aber allgemein ansprechen.

Die Shapes heißen ja alle ShapeXXX. Und dann müsste ich doch sowas sagen können wie

Shape+'i'.Brush.Color:=clmaroon;

Ums kurz zu sagen, wie setze ich einen Objektnamen aus einem konstanten String und einer Integerzahl zusammen?

Vielen Dank im Voraus!!