Für soetwas würde ich die n Label in ein Array packen und dynamisch erzeugen, ober aber automatisch erzeugen lassen und dann in ein array schreiben (das kannst du dann wiederum mit findcomponents bzw. Panel1.Components machen).
Dynamisch erzeugen:
Delphi-Quellcode:
type
Form1 = class(Tform)
[...]
Label : array[1..20] of TLabel;
[...]
for i:=1 to 20 do
Label[i] := TLabel.Create(Self);
// Dann noch Parent zuweisen und positionieren
for i:=1 to 20 do
Label[i].Caption := 'Hallo ' + IntToStr(i);
[...]