Befehle für mehrere Objects gleichzeitig?!

[JasonDX]

klar, per forschleife und findcomponent
so ca.

Delphi-Quellcode:

for i := 1 to 10 do
  TShape(FindComponent(Format('Shape%d', [i]))).brush.Color := clWhite;

statt 10 musst du halt die anzahl deiner Shapes angeben...

[Edit] 2 slow...