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:   Name := 'MainForm';
    SetPosition(293, 236, 284, 254);
    WindowTitle := 'Command Interface Test';
    WindowPosition := wpScreenCenter;
  
    btnAdd := TfpgButton.Create(self);
    with btnAdd do
  
negative.code: interface
  
  uses
    SysUtils,
    Classes,
    fpg_base,
    fpg_main,
    fpg_form,
    fpg_button,
    fpg_memo,
    fpg_menu;
  
  type
  
    TMainForm = class(TfpgForm)
    private
      {@VFD_HEAD_BEGIN: MainForm}
      btnAdd: TfpgButton;
      memName1: TfpgMemo;
  