TLabel Изменение размера шрифта в RunTime

[Morfi]

Доброго времени суток.

 

Создаю программно компоненты TLabel.

Status1 := TLabel.Create(Form1);
Status1.Name := 'LabelStatus1_'+idMachine.ToString;
Status1.Parent := RectangleStatus;
Status1.Align := TAlignLayout(9);
Status1.TextSettings.HorzAlign := TTextAlign(0);
//По умолчанию, при создании объекта TLabel, размер шрифта устанавливается в значение 12
Status1.TextSettings.Font.Size := 24;
Status1.TextSettings.WordWrap := true;
Status1.Text := 'Статус 1';
Status1.Visible := true;

Изменяю значение размера шрифта:

Status1.TextSettings.Font.Size := 24 

Значение изменяется, но размер шрифта TLabel при отображении на форме остается прежним.

 

Как можно, или нужно изменять размер шрифта компонента в RunTime?

[estra]

Добавьте строчку

Status1.StyledSettings := Status1.StyledSettings - [TStyledSetting.Size];

[Morfi]

А можете разъяснить?

[estra]

Здесь и здесь есть очень хорошее объяснение.

[Morfi]

Благодарю!