anchor.diff:    fItems[fCount].Text := aText;
     fItems[fCount].Hint := aHint;
     fItems[fCount].Enabled := aEnabled;
  +  fItems[fCount].Visible := True;
   
     Inc(fCount);
   end;
  
positive.code: end;
  
  
  procedure TKMRadioGroup.SetItemEnabled(aIndex: Integer; aEnabled: Boolean);
  begin
    Assert(aIndex < fCount, 'Can''t SetItemEnabled for index ' + IntToStr(aIndex));
    fItems[aIndex].Enabled := aEnabled;
  end;
  
  
  
negative.code:     fOnChange: TNotifyEvent;
      procedure UpdateMouseOverPositions(X,Y: Integer);
      function GetItem(aIndex: Integer): TKMRadioGroupItem;
      function GetVisibleCount: Integer;
    protected
      function GetHint: UnicodeString; override;
    public
  