Código Delphi
[-]
var a: array [0..100] of Tshape;
i:integer;
begin
for i:= low(a) to 50 do
begin
a[i]:= Tshape.create(form1);
a[i].parent......
end;
a[51] := Form1.shape1 ;
Si que era sencillo no???
Complicando la cosa un poquito
Código Delphi
[-]
var a : array [Boolean] of Tshape;
b:boolean;
begin
a[false].visible := false;
a[True].visible := true;
a[b].visible := false;
no te lies, [Boolean] es igual que [0..1]
Saludos