Loops / masse ændringer?

hvis jeg nu har fx. 50 shapes (der hedder shape1, shape2, shape3 osv.) der er invisible, og jeg vil ha en funktion der laver dem visible hvordan gør jeg så?

jeg tænkte på noget i denne stil.. men det virker ikke

for i:=1 to 50 do
begin
  shape[i].Visible := true;
end;

er der en måde hvor jeg ligesom i ovenstående kan sætte en variabel ind ??