Элементарный конвертер валют

[tane]

Добрый вечер,господа)
Создать программу, которая будет вычислять курсы валют. Перевести сумму введенную в гривнях в доллары, евро, рубли. Курсы валют по отношению к гривне – 8,05 дол., 10,23 евро, 0,18 руб. Результат вывести на экран монитора. Использовать переключатели.

Я написал для 2 переключателей.
А как для 3 переключателей написать? Исправьте пожалуйста .

procedure TForm1.Button1Click(Sender: TObject);
const d=8.05;
      e=10.23;
      rub=0.18;
var a,c:Real;
begin
a:=StrToFloat(edit1.text);
if RadioButton1.Checked then
c:=a/d
else c:=a/e;
c:=RoundTo(c,-2);
Edit3.Text:=FloatToStr(c);
  end;
end.

[Stilet]

Допустим так:

procedure TForm1.Button1Click(Sender: TObject);
const d=8.05;
      e=10.23;
      rub=0.18;
var a,c:Real;
begin
a:=StrToFloat(edit1.text);

if RadioButton1.Checked then c:=a/d else 
if RadioButton2.Checked then  c:=a/e else
 c:=RoundTo(c,-2);

Edit3.Text:=FloatToStr(c);
  end;
end.

[tane]

Спасибо за помощь.

[Stilet]

Пожалуйста.