Примеры процедуры – обработчика события Button1Click для к проекту на рисунке 7.

procedure TForm2.Button1Click(Sender: TObject);

var a,b,c:real;

begin

{Работаем с радиогруппой с помощью оператора выбора. Эти же действия можно реализовать с помощью ряда операторов If}

 Case RadioGroup1.ItemIndex of

 0: begin a:=strtofloat(Edit1.Text); {Выбрана кнопка «рубль»}

    b:=a*4.95;

    c:=a/32;

    end;

 1: begin b:=strtofloat(Edit1.Text); {Выбрана кнопка «тенге»}

    a:=b/4.95;

    c:=b/168;

    end;

 2: begin c:=strtofloat(Edit1.Text); {Выбрана кнопка «евро»}

    b:=c*168;

    a:=c*32;

    end;

 end;

 Edit2.Text:=floattostrF(a,fffixed,6,2);

 Edit3.Text:=floattostrF(b,fffixed,6,2);

 Edit4.Text:=floattostrF(c,fffixed,6,2);

end;

Загрузить пример проекта