[Bargest]

Странно, если оно вообще хоть когда-либо работало.
Сравнение дробных чисел так не сделать. Дробные числа надо сравнивать приблизительно, то есть

Код:

if (a>b-eps)and(a<b+eps) then ...

Где eps задаете сами, что-нибудь около 0.01.