[ryderx34]

Есть ещё такой вариант:

Код:

var
  I: Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if I < Form1.ComponentCount - 2 then // '- 2' - вычитаем кол-во всех остальных 
    Inc(I)                                // компонентов, кроме radiobutton-ов
  else                          // чтобы получить текущее кол-во radiobutton-ов
    I := 1;
  (FindComponent(Format('RadioButton%d',[i])) as TRadioButton).Checked := True;
end;