Es waren zu viele begins bzw. an der falschen Stelle. Das Setzen der farbe grün wurde deshalb immer ausgeführt.
Delphi-Quellcode:
if StrToInt(EEingabe.Text) > Zahl then
begin
PAntwort.Caption := 'zu groß!';
PAntwort.Color := clred
end;
if StrToInt (EEingabe.Text) < Zahl then
begin
PAntwort.Caption := 'zu klein';
PAntwort.Color := clred
end;
if StrToInt (EEingabe.Text) = Zahl then
begin
PAntwort.Caption := 'Richtig!';
PAntwort.Color := cllime
end;