anchor.diff:    begin
       mi:= TMenuItem.Create(Self);
       mi.Caption:= AMenuCaption;
  -    mi.Tag:= PtrInt(TAppMenuProps.Create);
  -    TAppMenuProps(mi.Tag).TagString:= AMenuTagString;
  +    MenuProps:= TAppMenuProps.Create;
  +    MenuProps.TagString:= AMenuTagString;
  +    mi.Tag:= PtrInt(MenuProps);
   
       Num:= StrToIntDef(AMenuCmd, 0); //command code
       if Num>0 then
  
positive.code:     end
      else
      begin
        TAppMenuProps(mi.Tag).CommandCode:= -1;
        TAppMenuProps(mi.Tag).CommandString:= AMenuCmd;
        if (AMenuCmd<>'0') and (AMenuCmd<>'') then
          mi.OnClick:= @MenuMainClick;
      end;
  
negative.code: function TfmMain.DoMenuAdd_Params(const AMenuId, AMenuCmd, AMenuCaption,
    AMenuHotkey, AMenuTagString: string; AIndex: integer): string;
  var
    MenuProps: TAppMenuProps;
    mi, miMain: TMenuItem;
    Num: integer;
  begin
  