[Rosenkrantz]

Код:

procedure TForm1.CreateLabels;
var
  LabelArr: Array [0..10] Of TLabel;
  i: Integer;
begin
...
  for i := 0 to Length(LabelArr) - 1 do begin
    // Создаем очередную метку
    L[i] := TLabel.Create(Self);
    with L[i] do begin
      // Позиционируем в столбик одну под другой с расстоянием в 2 пиксела
      // Предполагается, что все метки одной высоты
      Lef  := 2;
      Top := i * (L[i].Height + 2);

      // Размещаем на Panel1
      Parent := Panel1;
    end;
  end;
...
end;