Динамическое создание Label

[zekelive]

Добрый день. Столкнулся с загвоздкой. Создаю динамически Rectangle и на нем Label. Все создается, но некоторые параметры Label невозможно изменить. А это: размер текста, цвет. Почему так? Нужно как-то по другому обращаться к созданному Label? 

  var
  i,count,next:integer;
  name:TLabel;
  dt:TLabel;
  rev:TLabel;
  Rect:TRectangle;
  begin
  next:=1;
  for i:=1 to count do
  begin
  a:=IntToStr(next);
  rect:=TRectangle.Create(Form1);
  rect.Parent:=rectangle10;
  rect.Margins.Left:=15;
  rect.Margins.Right:=15;
  rect.Margins.Top:=15;
  rect.Size.Height:=150;
  rect.XRadius:=6;
  rect.YRadius:=6;
  rect.Fill.Color:=TAlphaColors.FloralWhite;
  rect.Stroke.Color:=TAlphaColors.FloralWhite;


  name:=TLabel.Create(Form1);
  name.Parent:=rect;
  name.Margins.Left:=15;
  name.Margins.Right:=15;
  name.Margins.Top:=5;
  name.Text:=Label12.Text;
  name.TextSettings.Font.Size:=2;
  name.FontColor:=TAlphaColors.Black;

[xenon54]

Думаю это вам должно помочь.

Ну и вот это в догонку.

Изменено 4 мая, 2015 пользователем xenon54

[zekelive]

В Яблочко!) Спасибо)