[cotseec]

похоже, что

Код:

...
obr: integer;
...

т.е.

Код:

obr:=Round((a1+(ne2*no2/sqrt(a2+a3))/l2)*10000 / 10000);

(функция Round дает на выходе тип integer)
дает obr=1, а 1<>1,0000, чтобы все получилось, надо либо

Код:

const
g=1;

либо

Код:

if ((obr+step) >= g) and ((obr-step) <= g) then  // g- константа =1,0000
      found := TRUE;;

где

Код:

...const
step=0.001;// (0.001 для примера) шаг допуска 
...