1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  tageskurs: real;
  betrag_euro: real;
  betrag_dollar: real;
  ausgabe_euro: real;
  dollar: real;
  euro: real;

begin
  bitbtn1.Font.Color := clblack;
  try
    tageskurs := strtofloat(edit1.Text);
    betrag_euro := strtofloat(edit2.text);
    dollar := tageskurs * betrag_euro;
    edit4.text := floattostr(dollar);					

1:
2:
3:
4:

uses
  Windows,
  Math,
  ...;