1:
2:

FOR x:=1 TO 10 DO
  Label[x].Caption:='Dies ist das Label mit der Nummer '+IntToStr(x);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
testlabel : TLabel;
x : integer;
begin
for x := 1 to 99 do begin
  testlabel := TLabel.create(self);
    with testlabel do begin
      parent := self;
      name := meinelabel+inttostr(x);
    end;
  end;
end;					

1:
2:
3:
4:
5:

var
x : integer;
begin
for x := 1 to 99 do TLabel(findcomponent(label+inttostr(x))).caption := 'Das is das Label : '+inttostr(x);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var labelfelder : array[1..99] of TLabel;
x: integer;
begin
for low(labelfelder) to high(labelfelder) do begin
    labelfelder[x] := TLabel.create(self);
    labelfelder[x].parent := self;
    end;
end;

//  Zugriff dann wie bei Arrays üblich....

var
x: integer;
begin
for x := low(labelfelder) to high(labelfelder) do labelfelder[x].caption := 'Das is das Label : '+inttostr(x); 
end;