Array von TShapes visible machen

[Shoqez]

Hallo alle zusammen,
ich habe ein Problem und zwar habe ich mit einem Programm 50 Tshapes sichtbar gemacht. Jetzt möchte ich aber alle auf einmal wieder unsichtbar machen. Die Variante alle Shapes nacheinander sichtbar zu machen ist mir zu aufwendig, deswegen habe ich ein Array erstellt. Jedoch bekomme ich immer eine Fehlermeldung, wenn ich diese mit dem Button starte.
Bitte erklärt mir die Schritte, da ich erst vor wenigen Wochen mit dem Programmieren angefangen habe.
LG Shoqez

Delphi-Quellcode:

var i:integer;
    shape: array [1..50] of tshape

for i:=1 to 50 do
begin
shape[i].visible:=false;
end;