Sıcaklık Değerini Değiştirme [celcius to fahrenheit]

procedure TForm1.Button1Click(Sender: TObject);
var
a,yenideger:real;
begin
a:=strtofloat(edit1.text);
if radiobutton1.Checked then
yenideger:=((a)*(9/5))+32;
edit2.text:=floattostr(yenideger);
if radiobutton2.checked then
yenideger:=((a)-32)*(5/9);
edit2.text:=floattostr(yenideger);
end;

end.