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

procedure TForm1.BEuroDollarClick(Sender: TObject);
const rKurs = 0.767283;
var rDollar,rEuro :real;
begin
rEuro:= StrToFloat (EEuro.Text);
rDollar:= rEuro/rKurs;
EDollar.Text:= FloatToStr (rDollar);
end;

procedure TForm1.BDollarEuroClick(Sender: TObject);
const rKurs = 0.767283;
var rDollar,rEuro :real;
begin
rDollar:= StrToFloat (EDollar.Text);
rEuro:= rDollar*rKurs;
EEuro.Text:= FloatToStr (rEuro);

end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.BEuroDollarClick(Sender: TObject);  // Klick auf den Button der Euro in Dollar umrechnet
const rKurs = 0.767283;     //rKurs ist der Umrechnungskurs den das Programm für die Rechnung verwendet
var rDollar,rEuro :real;    //rEuro ist der Wert in Euro, rDollar der Wert in Dollar
begin 
rEuro:= StrToFloat (EEuro.Text);     //Das Programm soll den Euro-Wert ins dazugehörige Edit-Feld schreiben ("EEuro")
rDollar:= rEuro/rKurs;               //Eigentliche Berechnung: Dollarwert = Eurowert / Kurs
EDollar.Text:= FloatToStr (rDollar); //Der Dollar-Wert ("rDollar")ins dazugehörige Edit-Feld ("EDollar") 
end;					

1:
2:

if procedure TForm1.Button1Click(Sender: TObject);
then... // ("..." = Anweisung)					

1:
2:
3:
4:
5:

if (edit1.text='') and (edit2.text='') then exit; 
if edit1.text='' then
  rechne dollar zu euro;
if edit2.text='' then
  rechne euro zu dollar					

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

procedure TForm1.BAusfuehrenClick(Sender: TObject);   // Klick auf den Button "BAusfuehren"
const rKurs = 0.767283;                               // Umrechnungskurs
var rDollar,rEuro :real;                              // Variablen: "rDollar" = Dollarwert, "rEuro" = Eurowert

begin                                                 // Programmstart
if (EEuro.text='') and (EDollar.text='') then exit;   // Wenn das Feld EEuro und EDollar leer ist, Programm beenden
if EDollar.text='' then                               // Wenn das Feld EDollar leer ist:
begin                                                 // Starte 1. If-Anweisung
rEuro:= StrToFloat (EEuro.Text);                      // Anfang Umrechnung Euro zu Dollar
rDollar:= rEuro/rKurs;                                // Dollarwert = Eurowert / Umrechnungskurs
EDollar.Text:= FloatToStr (rDollar);                  // Ende Umrechnung Euro zu Dollar
end;                                                  // Beende 1. If- Anweisung

if EDollar.text='' then                               // Wenn das Feld EDollar leer ist:
begin                                                 // Starte 2. If-Anweisung
rDollar:= StrToFloat (EDollar.Text);                  // Anfang Umrechnung Dollar zu Euro
rEuro:= rDollar*rKurs;                                // Eurowert = Dollarwert * Umrechnungskurs
EEuro.Text:= FloatToStr (rEuro);                      // Ende Umrechnung Dollar zu Euro

end;                                                  // Beende 2. if- Anweisung

end;                                                  // Beende Button procedure

end.                                                  // Beende Programm					

1:
2:
3:
4:
5:
6:
7:
8:
9:

if EDollar.text='' then
begin                                                 
.....
end;

if EDollar.text='' then //<- müsste nicht hier EEuro.Text stehen
begin                                                 
.....
end;					

1:
2:
3:
4:
5:
6:

procedure TForm1.BResetClick(Sender: TObject);
begin
EEuro.Text:= ("")
EDollar.Text:= ("")
end;
end.