[Rosenkrantz]

Код:

For x2 := 1 to 3 do
  Begin
    LabelArr[x2] := TLabel.Create(Self);
    LabelArr[x2].Left := 20;
    LabelArr[x2].Top := x2 * (LabelArr[x2].Height + 20);
    LabelArr[x2].Caption := 'Динамический';
    LabelArr[x2].Parent := Text.Panel1;
  End;
  Text.Visible := true;
  Text.Label1.Caption := Predmet;
  Text.Label1.Left := (Text.Panel1.Width - Text.Label1.Width)Div 2;
End;