Dein Sourcecode ist ziemlich schlampig formatiert und daher kommt auch dein Fehler:
Delphi-Quellcode:
if Sender = BtMinus then
begin
PRZ.Caption := '-';
if Nenner1 <> Nenner2 then
begin // hat gefehlt
PRZ.Caption := '-';
NennerE := Nenner1*Nenner2;
ZaehlerE := (Zaehler1*Nenner2)-(Zaehler2*Nenner1);
end
else if Nenner1 = Nenner2 then
end; // hat gefehlt
Empfehlung:
nach
begin immer um 3 Leerzeichen einrücken. Borland rückt um 2 Leerzeichen ein.
Das ist Geschmackssache; wichtig ist, dass man es immer gleich macht.