[angvelem]

Я так понимаю, ранее даный ответ не устроил?

Код:

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0 : Edit1.Text := FloatToStr(RadToGrad(StrToFloatDef(Edit1.Text, 0)));
    1 : Edit1.Text := FloatToStr(GradToRad(StrToFloatDef(Edit1.Text, 0)));
  end;
end;