RadioGroup 的使用

//获取 RadioGroup 项目名称
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  Text := RadioGroup1.Items[RadioGroup1.ItemIndex];
end;

---

//当点击 RadioGroup 中的第几个选项时...
procedure TForm1.RadioGroup1Click(Sender: TObject);
var
  str: string;
begin
  case RadioGroup1.ItemIndex of
    : str := 'one';
    : str := 'two';
    : str := 'three';
    : str := 'four';
  end;

  Text := str;
end;