Андрей!
У Вас в этом месте
IF ABS(varReal) ELSE
ошибка.
исправь те пожалуйста. Видимо, что-то не так скопировали.
функция полезная, но не работает.