Creare n Label,

[nicholas77]

Vorrei creare, tramite ciclo for, tante label quanto me ne servono; non ricordo di preciso come si faccia.

Ho scritto queste righe pero' non ho ottenito nulla.

var labels : tlabel;

for i:=1 to n do
labels.create(self);



Che mi consigliate?

[cyberlaundry]

procedure TForm1.FormCreate(Sender: TObject);
var
  I: integer;
begin
  for I := 0 to 9 do
    with TLabel.Create(Self) do
    begin
      Parent := Self;
      Caption := 'Label n. '+IntToStr(I);
      Top := I * 20;
      Left := 0;
    end;
end;

[nicholas77]

non ricordavo con precisione.