Da ja die 95% - 105% offenbar nicht supergenau sein müssen, wäre die Funktion InRange aus der
Unit Math ein einfache Lösung (Math müsstest du dann der Uses-Klausel hinzufügen).
Die nimmt auch Fließkommazahlen, und es kommt ja nicht so genau darauf an, dass die Grenze absolut scharf gezogen wird.
Delphi-Quellcode:
If InRange(Wert,Wert * 0.95,Wert * 1.05)
then ...