[M.A.D.M.A.N.]

а потом по индексу конструируй

Код:

1 2 3 4 5 6 7 8 9

var labels:array[0..100]of TLabel; index:byte; begin for index:=0 to 100 do   begin     labels[index]:=TLabel.Create(self);     labels[index].parent:=self;     //...and so one...   end;