Переключение радиокнопки без использования мыши и клавиатуры

type
 
    { TForm1 }
 
    TForm1 = class(TForm)
        Button1: TButton;
        RadioButton1: TRadioButton;
        RadioButton2: TRadioButton;
        RadioButton3: TRadioButton;
        RadioButton4: TRadioButton;
        RadioButton5: TRadioButton;
        procedure Button1Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
    private
        procedure rbClick(Sender: TObject);
 
    public
 
    end;
 
    TRButton  = array of TRadioButton;
 
var
    Form1: TForm1;
    rb   : TRButton;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
    rb:=  TRButton.Create(RadioButton1, RadioButton2, RadioButton3, RadioButton4, RadioButton5);
    for i:= 0 to 4 do
    begin
        rb[i].Tag:= i;              // Tag = Index (в массиве)
        rb[i].OnChange:= @rbClick;  // Общий обработчик
    end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
    //[1].Checked:= true;           // Работает
    rb[2].Checked:= true;           // Ни какой реакции, так как оно уже Checked.
end;
procedure TForm1.rbClick(Sender: TObject);
var idx: integer;
begin
    idx:= (Sender as TRadioButton).Tag;
    ShowMessage('Событие rbClick произошло для rb ' + IntToStr(idx));
end;