Проблема с Firemonkey

[F1n4]

В общем динамически создал массив из label,и никак не могу изменить цвет

var Lab: Array of TLabel;
//Ed: Array of TEdit;
pn:array of TPanel;
n,i: Integer;
alpha:TAlphaColor;
begin
alpha:=$FF008000;
n := 100;
SetLength(Lab, n+1);
//SetLength(Ed, n+1);
SetLength(pn, n+1);
for i := 0 to n-1 do
begin
pn[i]:=TPanel.Create(Self);
 pn[i].Width:=500;
pn[i].Position.X:=10;
pn[i].Position.Y:=i*30+20;
pn[i].Parent:=Self;

Lab[i] := TLabel.Create(Self);
Lab[i].Parent := Self;
Lab[i].Position.X := 10;
Lab[i].Position.Y := i*30+20;
Lab[i].FontColor:=alpha;
Lab[i].Text:= 'Этикетка'+IntToStr(i+1);