Pадианы,градусы.

[ololo23]

Помогите пожалуйста.
Есть 2 radiobutton'a как сделать, чтобы при нажатии 2го результат выходил в (edit1) в градусах (sin,cos,tg), а 1го обратно в радианы?
кнопка =

procedure TForm1.BitBtn18Click(Sender: TObject);
begin
if edit1.Text<>'' then b:=strtofloat (edit1.Text);
case c of
 'x':edit1.Text:=floattostr(power(a,b));
 '+':edit1.Text:=floattostr(a+b);
 '-':edit1.Text:=floattostr(a-b);
 '*':edit1.Text:=floattostr(a*b);
 '/':begin
 if b<>0 then
 edit1.Text:=floattostr(a/b) else
 form3.Show;
    end;
 end;
end;

кнопки sin,cos,tg

procedure TForm1.BitBtn24Click(Sender: TObject);
begin
x:=strtofloat(edit1.Text);
y:=sin(x);//sin,cos,sin(x)/cos(x).
edit1.Text:=floattostr(y);
end;

[Stilet]

На вскидку:

 if Radiobutton1.Checked then edit1.Text:=floattostr(RadToGrad(y)) else edit1.Text:=floattostr(GradToRad(y));

[ololo23]

А код на что применять на кнопки sin,cos,tg или Radiobutton1?
что-то нето
1G 53,5697066802328 а sin стал
1R 0,0132177953204073
если на Radiobutton то вообще бред при нажатии
сразу появляется 53,5697066802328

[Serge_Bliznykov]

x:=strtofloat(edit1.Text);

ВОТ ЗДЕСЬ НУЖНА ПРОВЕРКА:
if ВыбранЧекбокс_Edit1Радианы then
    y:=sin(x);//sin,cos,sin(x)/cos(x)
else {значит выбраны градуы}
  y := sin( GradToRad(x) );

edit1.Text:=floattostr(y);

[ololo23]

Непонял ,особенно вот это 'if ВыбранЧекбокс_Edit1Радианы then'
пробовал так, тоже неполучилось.
x:=strtofloat(edit1.Text);
if radiobutton4.Checked=true then
y:=sin(x)
else
y := sin( GradToRad(x) );
edit1.Text:=floattostr(y);

[ololo23]

Delphi.
Помогите пожалуйста.
Есть 2 radiobutton'a как сделать, чтобы при нажатии 2го, результат выходил в (edit1) в градусах для ((кнопок) sin,cos,tg), а при нажатии 1го обратно в радианы?

Тоесть:
радианы
sin(1)=0,84147098....
Нажимаем radiobutton2
(радианы переводятся в градусы)
sin(1)=0,017452506...
Нажимаем radiobutton1
(градусы переводятся в радианы)
и sin oпять равен sin(1)=0,84147098....
также для кнопок сos,tg.


кнопки sin,cos,tg.

procedure TForm1.BitBtn24Click(Sender: TObject);
begin
x:=strtofloat(edit1.Text);
y:=sin(x);//sin,cos,sin(x)/cos(x).
edit1.Text:=floattostr(y);
end;