1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.Button1Click(Sender: TObject);
Var n:real;

begin

n:= strtofloat(edit1.text);

case RadioGroup1.ItemIndex of
0: Label2.Caption := '1 Euro = 1.486 Dollar';
   Label3.Caption := floattostr(n*1.486);
1: Label2.Caption := '1 Euro = 0.9069 Britische Pfund' ;
   Label3.Caption := floattostr(n*0.9069);
2: Label2.Caption := '1 Euro = 7.257 Kroatische Kuna';
   Label3.Caption := floattostr(n*7.257);
3: Label2.Caption := '1 Euro = 10.13 Südafrikanische Rand';
   Label3.Caption := floattostr(n*10.13);

end;


end;

end.