function SameValue(A, B: Extended; Epsilon: Extended): Boolean  

Проверяет совпадают ли два вещественных числа.

Параметры:

• A - число.
• B - число.
• Epsilon - допустимая разница между числами.