Crear matriz de componentes en ejecución

(José Luis Freire)

Este es un ejemplo utilizando Label, se crea la matriz de etiquetas, de la misma forma podríamos cambiar el componente.

implementation

Var
  Etiquetas : Array [1..8] of TLabel;
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
Var
 x,y : integer;

begin
 y:=0;
 for x:=0 to Length(Etiquetas)-1 do
   begin
     y:=y+30;
     Etiquetas[x]:= TLabel.Create(self);
     Etiquetas[x].left := 25;
     Etiquetas[x].top := y;
     Etiquetas[x].Width:=60;
     Etiquetas[x].Caption:='Etiqueta '+InttoStr(x);
     Etiquetas[x].Parent := self;
   end
end;