[lmikle]

Вот так все показывает павильно:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  Item : TMenuItem;
begin
  Item := TMenuItem.Create(Self);
  aaa1.Add(Item);
  ShowMessage(IntToStr(aaa1.Count));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Item : TMenuItem;
begin
  Item := TMenuItem.Create(Self);
  MainMenu1.Items.Add(Item);
  ShowMessage(IntToStr(MainMenu1.Items.Count));
end;

Видимо, ты не оттуда читаешь.