Du wirst mit reals im Computer nie Null darstellen können, deswegen sollte eine direkte Gleichheitsprüfung mit Null auch i.A. vermieden werden.
Stattdessen benutzt man einen Epsilon-Mechanismus, d.h. man definiert sich ein (sehr, sehr kleines) Epsilon, und prüft dann ob der Wert den man betrachtet näher an Null liegt als dieses Epsilon.
Das bedeutet auf gut Deutsch: Alle positiven Werte, die kleiner als Epsilon sind bzw alle negativen Werte, die größer als Epsilon sind werden als Null behandelt.
Delphi-Quellcode:
function RealIsZero(const X: extended): boolean;
const Epsilon = 1e-19 // nur als Beispiel
begin
Result := abs(x) < Epsilon;
end;