Assign

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод компонентов Assign";
frm.Width =450;
frm.Height=300;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Шрифт меток одинаковый";

// Метка 1
lb1=new TLabel(frm);
lb1.Caption="Метка 1 ";
lb1.Font.Size+=1;
lb1.Font.Style=fsItalic;
lb1.Left=(stb.ClientWidth-lb1.Width)/2;
lb1.Top =(stb.Top-lb1.Height*3)/2;

// Метка 2
lb2=new TLabel(frm);
lb2.Caption="Метка 2 ";
lb2.Font.Assign(lb1.Font);
lb2.Left=lb1.Left;
lb2.Top =lb1.Top+lb1.Height*1.5;

frm.ShowModal();