Delphi. компонент TLabel

[Женька Good]

При нажатии на 1 кнопку с помощью программного кода создать компоненты Tlabel от 4 до 8 штук. В первый занести "Вариант 2" зеленым шрифтом и 12 размера.
При нажатии на 2 кнопку переписать все свойства из 1 лэйбла во 3 с помощью метода Assign.
вот, что у меня получилось

procedure TForm1.Button1Click(Sender: TObject);
Var i,a:integer;
begin
a:=Random(4)+3;
For i:=0 to a do
 begin
 lb:=Tlabel.Create(form1);
 lb.Parent:=Form1;
 lb.Name:='a'+inttostr(i);
 lb.Caption:='';
 lb.AutoSize:=false;
 lb.width:=100;
 lb.Height:=25;
 Lb.Top:=30*i;
 lb.Left:=50;
 lb.color:=clwhite;
 if lb.Name='a0' then
  begin
   lb.caption:='Вариант 2';
   lb.Font.Color:=clgreen;
   lb.Font.Size:=12;
  end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
findcomponent((lb.name+'a'+inttostr(0)).font.assign(label2.font));
end;

end.

2 кнопка не работает вообще!
как я понял, то нужно переделать как-то вот это

Label1.Font.assign(label2.Font);

Еще думаю, что это как-то связано с FindComponent.

[Stilet]

А причем тут фонт?

Label2.Font.Assign(Label1.Font);

Работает как полагается.

это как-то связано с FindComponent.

Да. Она тебе ничего не возвращает, потому что ты обьявил имя:

lb.Name:='a'+inttostr(i);

а пытаешся найти

(lb.name+'a'+inttostr(0))

Убери lb.name+

[Женька Good]

как мне переделать вот эту строку

findcomponent(('a'+inttostr(0)).assign(label2.font));

[Stilet]

Да. Примерно так, если конечно не учитывать отсутствие проверки на nil, если findcomponent ничего не найдет.

[Женька Good]

Сообщение от Stilet

Да. Примерно так, если конечно не учитывать отсутствие проверки на nil, если findcomponent ничего не найдет.

но оно не работает

findcomponent(('a'+inttostr(0)).assign(label2.font));
Там где красная точка выдает ошибку