[Alegun]

Можно ещё по имени обращаться, если они по-порядку идут

Код:

for i := 1 to 9 do
  (FindComponent('Shape' + IntToStr(i)) as TShape).Color:= clMoneyGreen;