anchor.diff:    // instantiate the Command classes
     btnAdd.SetCommand(TAddCommand.Create(memName1));
     btnQuit.SetCommand(TExitCommand.Create);
  +  miAdd.SetCommand(btnAdd.GetCommand);  // reuse exist command from btnAdd instance
     // The menu item File|Quit shares the command of btnQuit
     mnuFile.MenuItemByName('Quit').SetCommand(btnQuit.GetCommand);
   end;
  
positive.code:     MainMenu: TfpgMenuBar;
      mnuFile: TfpgPopupMenu;
      {@VFD_HEAD_END: MainForm}
      procedure AfterCreate; override;
    end;
  
  
negative.code:   begin
      Name := 'mnuFile';
      SetPosition(44, 72, 120, 20);
      miAdd := AddMenuItem('Add Item', '', @CommandHandler);
      AddMenuItem('Quit', '', @CommandHandler);
    end;
  
  