Wenn Du meinst schreiben im Sinne einer if abfrage im Quellcode würd ich mal sagen gar nicht. Da musst du zwei if abfragen kombinieren in etwa so
Delphi-Quellcode:
lToleranz := 80;
lMin := 100;
lMax := 200;
lResult := 0;
if ( (lValue - lToleranz) < lMin)
or ((lValue + lToleranz) > lMax) ) then
lResult := 1; //Out of Range
if ((lMax - lMin) < lToleranz) then
lResult := 2; //Error
case lResult of
0: //kein Fehler
1: //out of Range
2: //Error
end;