anchor.diff:      MainMenu: TfpgMenuBar;
       mnuFile: TfpgPopupMenu;
       {@VFD_HEAD_END: MainForm}
  +    miAdd: TfpgMenuItem;
  +    procedure CommandHandler(Sender: TObject);
  +  public
       procedure AfterCreate; override;
     end;
   
  
positive.code:   // instantiate the Command classes
    btnAdd.SetCommand(TAddCommand.Create(memName1));
    btnQuit.SetCommand(TExitCommand.Create);
    // The menu item File|Quit shares the command of btnQuit
    mnuFile.MenuItemByName('Quit').SetCommand(btnQuit.GetCommand);
  end;
  
negative.code:   Name := 'MainForm';
    SetPosition(293, 236, 284, 254);
    WindowTitle := 'Command Interface Test';
    WindowPosition := wpOneThirdDown;
  
    btnAdd := TfpgButton.Create(self);
    with btnAdd do
  