anchor.diff:      fOnChange: TNotifyEvent;
       procedure UpdateMouseOverPositions(X,Y: Integer);
       function GetItem(aIndex: Integer): TKMRadioGroupItem;
  +    function GetVisibleCount: Integer;
     protected
       function GetHint: UnicodeString; override;
     public
  
positive.code:     procedure Add(aText, aHint: UnicodeString; aEnabled: Boolean = True); overload;
      procedure Clear;
      property Count: Integer read fCount;
      property ItemIndex: Integer read fItemIndex write fItemIndex;
      property OnChange: TNotifyEvent read fOnChange write fOnChange;
      property Item[aIndex: Integer]: TKMRadioGroupItem read GetItem;
      procedure SetItemEnabled(aIndex: Integer; aEnabled: Boolean);
      procedure MouseUp(X,Y: Integer; Shift: TShiftState; Button: TMouseButton); override;
      procedure MouseMove(X,Y: Integer; Shift: TShiftState); override;
      procedure Paint; override;
  
negative.code:   fItems[fCount].Text := aText;
    fItems[fCount].Hint := aHint;
    fItems[fCount].Enabled := aEnabled;
    fItems[fCount].Visible := True;
  
    Inc(fCount);
  end;
  