Var Shp:array[1..3] of TShape;
procedure TForm1.Button1Click(Sender: TObject);
Var i:byte;
begin
For i:=1 to 3 do begin
Shp[i]:=TShape.Create(self);
With Shp[i] do begin
parent:=Form1;
name:='Shape'+intToStr(i);
Left:=100+150*i;
Top:=100;
visible:=false;
end;
end;
Shp[1].Visible:=true;
Shp[3].Visible:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
Var i:byte;
begin
For i:=1 to 3 do begin
Shp[i].Parent := nil;
Shp[i].Free;
Shp[i] := nil;
end;
end;