Wenn eine
Exception ausgelöst wird (hier Division durch 0) wird der nachfolgende Code bis zum Ende des Try Except bzw. Finally Block abgebrochen.
Vorm Berechnen auf 0 prüfen:
Delphi-Quellcode:
if strtofloat(edit2.Text)= 0 then
ShowMessage ('Durch null darf nicht dividiert werden')
else
Berechnen;