اضافه کردن به منو

[lord_viper]

با سلام
من یه برنامه دارم مینویسم که mainmenu ش 2 تا سربرگ داره fileو plogin میخواهم به سربرگ plogin به طور dynamic و موقع اجرای برنامه منوهاشو بسازم چطور میتونم این کارو انجام بدم؟
با تشکر

[taha]

سلام


procedure TForm1.Button1Click(Sender: TObject);
var
ASubItems: array of TMenuItem;
i: Integer;
begin
SetLength(ASubItems, 5);
for i := 0 to 4 do
begin
ASubItems[i]:= TMenuItem.Create(plogin);
ASubItems[i].Name:= Format('AMenuItem%d', [i]);
// ASubItems[i].OnClick:= OnSubItemsClick;
ASubItems[i].Caption:= Format('Item%d', [i]);
end;
plogin.Add(ASubItems);
end;
plogin اسم منو شماست.