提一个很简单很简单的问题～～～

[Vestige]

下面的代码，哪里错了？为什么我每次只能添加最后一个？

procedure TfM.FormCreate(Sender: TObject);
var
i:integer;
nI:array of TMenuItem;
begin
FLB.Directory :='E:\Me.EXE\';

setLength(nI,FLB.Items.Count);
for i:=0 to FLB.Items.Count -2 do;
begin
ni[i]:=TMenuItem.Create(Self);
ni[i].Caption :=FLB.Items.Strings[i];
ni[i].Name :=FLB.Items.Names[i];
popMain.Items.Add(ni[i]);
end;
end;