[[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;