для сравнения вещественных чисел есть функция в Math:
Код:
function CompareValue(const A, B: Extended; Epsilon: Extended): TValueRelationship;
function CompareValue(const A, B: Double; Epsilon: Double): TValueRelationship;
function CompareValue(const A, B: Single; Epsilon: Single): TValueRelationship;
ей передаются 2 сравниваемых вещественных числа и величина погрешности Epsilon.