Bucle sobre Shapes

[Arkaz]

Hola. Tengo 50 shapes todos coloreados. Lo que quiero es ponerlos todos en blanco. Mi idea es hacerlo con un bucle tipo:

for i:=1 to 50 do
"ALGO".Brush.Color:=clwhite;

pero ese "algo" no se que poner, porque quiero que esa sola instruccion se aplique a todos los shapes que tengo. Entonces si pongo "Shape1" no vale porque solo se aplica al 1...Si sabeis como hacerlo o se os ocurre otra forma de ponerlos todos a blanco, os agradeceria mucho que me echarais una mano. Muchas gracias.

[[Héctor Randolph]]

Hola Arkaz!

Aquí tienes el siguiente código espero que te sea útil

Un Saludo!

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  I:Integer;
begin
  for I:=0 to ControlCount-1 do//Recorre todos los controles de la forma
    if (Controls[i] is TShape) then // El control es TShape ?
      (Controls[i] as TShape).Brush.Color:=clWhite; // Cambia el color a blanco
end;