anchor.diff:      procedure Add(const aItem: UnicodeString; aTag: Integer = 0);
       procedure SelectByName(const aText: UnicodeString);
       procedure SelectByTag(aTag: Integer);
  +    function HasTag(aTag: Integer): Boolean;
       function GetTag(aIndex: Integer): Integer;
       function GetSelectedTag: Integer;
       function IsSelected: Boolean;
  
positive.code: begin
    Assert(aIndex < fCount, 'Can''t SetItemVisible for index ' + IntToStr(aIndex));
    fItems[aIndex].Visible := aEnabled;
  end;
  
  
  
negative.code: end;
  
  
  function TKMRadioGroup.GetIsSelected: Boolean;
  begin
    Result := fItemIndex <> -1;
  end;
  
  
  procedure TKMRadioGroup.SetItemEnabled(aIndex: Integer; aEnabled: Boolean; aUncheckDisabled: Boolean = True);
  begin
    Assert(aIndex < fCount, 'Can''t SetItemEnabled for index ' + IntToStr(aIndex));
    fItems[aIndex].Enabled := aEnabled;
  
    // Reset item index, if this item was selected
    if aUncheckDisabled and not aEnabled and (fItemIndex = aIndex) then
      fItemIndex := -1;
  end;
  
  
  