Delphi - Como manejar 10 TShape del tirón??

Hola:
Pues que tengo 10 TShape en un form y necesito cambiarle una propiedad a todos a la vez. Y quisiera saber si hay otra forma que poner uno por uno ese cambio.

Gracias de todas forma.

Una solución sería poner las shapes en un arreglo por ejemplo al crear el formulario, y luego cada vez que necesites cambiar la misma propiedad en todos los controles lo haces dentro de un for..do:

var
Shapes: array [1..10] of TShape;

procedure TForm1.FormCreate(Sender: TObject);
begin
ShapeS[1] := Shape1;
ShapeS[2] := Shape2;
// ...
ShapeS[10] := Shape10;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 1 to 10 do Shapes[i].Brush.Color := $00EFE0E8;
end;

Espero que te sirva.

Ernesto