anchor.diff:      GroupsFl.Mode:= gmOne;
   
       //GroupsFl.OnTabFocus:= @DoOnTabFocus; //error
  -    GroupsFl.OnTabAdd:= @DoOnTabAdd; //gives error
  +    GroupsFl.OnTabAdd:= @DoOnTabAdd;
       GroupsFl.OnTabClose:= @DoOnTabClose;
       GroupsFl.OnTabMove:= @DoOnTabMove;
       GroupsFl.OnTabPopup:= @DoOnTabPopup;
  
positive.code: 
  procedure TfmMain.SetFloatGroups(AValue: boolean);
  begin
    InitFloatGroups;
    FFormFloatGroups.Visible:= AValue;
  end;
  
  
  
negative.code: 
      DoApplyThemeToGroups(GroupsFl);
      DoApplyUiOpsToGroups(GroupsFl);
    end;
  end;
  
  