anchor.diff:    fItems[fCount].Text := aText;
     fItems[fCount].Hint := aHint;
     fItems[fCount].Enabled := aEnabled;
  +  fItems[fCount].Visible := True;
   
     Inc(fCount);
   end;
  
positive.code:     Text: UnicodeString;
      Hint: UnicodeString;
      Enabled: Boolean;
    end;
  
  
  
negative.code: end;
  
  
  function TKMRadioGroup.GetVisibleCount: Integer;
  var
    I: Integer;
  begin
    Result := 0;
    for I := 0 to fCount - 1 do
      if fItems[I].Visible then
        Inc(Result);
  end;
  
  
  procedure TKMRadioGroup.SetItemEnabled(aIndex: Integer; aEnabled: Boolean);
  begin
    Assert(aIndex < fCount, 'Can''t SetItemEnabled for index ' + IntToStr(aIndex));
    fItems[aIndex].Enabled := aEnabled;
  end;
  
  
  procedure TKMRadioGroup.SetItemVisible(aIndex: Integer; aEnabled: Boolean);
  begin
    Assert(aIndex < fCount, 'Can''t SetItemVisible for index ' + IntToStr(aIndex));
    fItems[aIndex].Visible := aEnabled;
  end;
  
  
  