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;