RadioGroup1.ItemIndex=0 then 选了第一个
RadioGroup1.ItemIndex=1 then 选了第二个
....

按照1楼的做就行了

procedure TForm1.RadioGroup1Click(Sender: TObject);
var
  str:string;
begin
  case radiogroup1.ItemIndex of
    0:str:='值1';
    1:str:='值2';
    2:str:='值3';
  end;
  edit1.Text:=str;
end;