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: interface
  
  uses
    SysUtils, Classes, fpg_base, fpg_main, fpg_edit,
    fpg_widget, fpg_form, fpg_label, fpg_button,
    fpg_listbox, fpg_memo, fpg_combobox, fpg_grid,
    fpg_dialogs, fpg_checkbox, fpg_tree, fpg_trackbar,
    fpg_progressbar, fpg_radiobutton, fpg_tab, fpg_menu,
    fpg_panel;
  
  type
  
    TMainForm = class(TfpgForm)
    private
      procedure CommandHandler(Sender: TObject);
    public
      {@VFD_HEAD_BEGIN: MainForm}
      btnAdd: TfpgButton;
      memName1: TfpgMemo;
  
negative.code:     MainMenu: TfpgMenuBar;
      mnuFile: TfpgPopupMenu;
      {@VFD_HEAD_END: MainForm}
      miAdd: TfpgMenuItem;
      procedure CommandHandler(Sender: TObject);
    public
      procedure AfterCreate; override;
    end;
  
  