Und außerdem sollte man reelle Zahlen nie auf Gleichheit prüfen ... wegen der angesprochenen "Rundungsfehler".
Also nie
Delphi-Quellcode:
if x = 0 then ...
// oder
if x = 123.4594 then ...
auf null kann man z.B. so prüfen:
if abs(x) < 0.00001{jenachdem wie genau es sein soll} then ...