¿Para qué la quieres? A menos que hayas olvidado mencionar algo, la función que comenta seoane es lo que necesitas. Tú mismo estás indicando que ambos valores no son iguales por una pequeña diferencia pero quieres tratarlos como si fuesen iguales. Pues bien, éso es justamente lo que hace SameValue:
Código Delphi
[-]
if SameValue(A, B, .001) then
ShowMessage('Los valores son ''casi'' iguales (no difieren en más de .001)');
// Saludos