[lmikle]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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;

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