Überleg mal was hier passiert:
Delphi-Quellcode:
if (edtZahl.Text='') then
begin
lblFehler.Visible:= true
end
else
begin
lblFehler.Visible:= false;
end;
Das Programm läuft doch einfach weiter; da fehlt ein
Exit;
für den Fall dass die Eingabe nicht korrekt ist.