anchor.diff:    inherited HandleKeyRelease(keycode, shiftstate, consumed);
   end;
   
  -function TfpgRadioButton.FindNeighbor(direction: TFocusSearchDirection): TfpgRadioButton;
  +function TfpgRadioButton.FindNeighbour(direction: TFocusSearchDirection): TfpgRadioButton;
   var
     i: integer;
     wg: TfpgWidget;
  
positive.code:     procedure   HandleLMouseUp(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
      procedure   HandleKeyRelease(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
      function    FindNeighbor(direction: TFocusSearchDirection): TfpgRadioButton;
    public
      constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
  
negative.code:   if FChecked and (Parent <> nil) then
    begin
      for i := 0 to Parent.ComponentCount-1 do
        if (Parent.Components[i] is TfpgWidget) then
        begin
          wg := TfpgWidget(Parent.Components[i]);
          if (wg <> nil) and (wg <> self) and (wg is TfpgRadioButton) and
              (TfpgRadioButton(wg).GroupIndex = GroupIndex) then
          begin
            TfpgRadioButton(wg).Checked := False;
          end;
        end;  { if }
    end;  { if }
  
    RePaint;
  