Welche Anzahl? Die Anzahl der neuen MenuItems? Ja klar, geht mit einem Array.
Delphi-Quellcode:
var
newentries: array[0..99] of TMenuItem;
....
for i := 0 to 99 do begin
newentries[i] := TMenuItem.Create(self);
newentries[i].Caption := 'Item' + IntToStr(i);
MainMenu1.Items[0].Add(newentries[i]);
end;
//Edit: Blöd wenn du plötzlich alles wegeditierst.
