RadioGroup в RAD Studio XE3, FireMonkey

type
  TForm1 = class(TForm)
  // ...
  private
    { Private declarations }
    procedure MyRadioButtonClick(Sender: TObject);
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.fmx}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  rb : TRadioButton;
  i, pos : Integer;
begin
  pos := 20;
  for i := 1 to 5 do
  begin
    rb := TRadioButton.Create(GroupBox1);
    rb.Text := 'test #' + IntToStr(i); // Ну, или бери названия откуда-то из другого места
    rb.Position.Y := pos;
    rb.Visible := true;
    rb.Tag := i;
    rb.OnClick := MyRadioButtonClick;
    GroupBox1.AddObject(rb);
    inc(pos, 20);
  end;
end;
 
procedure TForm1.MyRadioButtonClick(Sender: TObject);
begin
  ShowMessage(IntToStr((Sender as TRadioButton).Tag)); // Это определение, какой айтем выбран
end;
 
end.