[Gad99]

Вот так создаю

Код:

procedure TForm1.CreateLabel (x : integer);
var LabelAr : array of TLabel;
k : byte;
Begin
  For k := 1 to x do
    Begin
    SetLength(LabelAr,k);
    LabelAr[k] := TLabel.Create(self);
    LabelAr[k].Name := 'MyLabel'+inttostr(k);
    LabelAr[k].Left := 50;
    LabelAr[k].Top :=k * 50;
    LabelAr[k].Parent := Text.Panel1;
    End;
End;

Вот так пытаюсь использовать

Код:

CreateLabel(1);
Text.MyLabel1.Caption := 'hello';
Text.MyLabel1.Left := (Text.Panel1.Width - Text.MyLabel1.Width)Div 2;