@TCH:
Aztán van még olyan, hogy pointerlistából hivatkozol rájuk. Olyankor ugyanúgy megcsinálod a labeljeidet a formon, viszont a kódban csinálsz róluk egy pointerlistát.var label: array[1..9] of ^tcaption;

procedure init_ptrs;
begin
label[1] := @Label1;
label[2] := @Label2;
label[3] := @Label3;
//etc
end;

procedure mittudomen;
var i: integer;
begin
for i := 1 to 9 do
begin
label[i]^.caption := 'HAHA';
end;
end;'Sztannyi.