function IsNear(const A, B, Distance: Integer): Boolean; overload; begin Result := Abs(A-B) <= Abs(Distance); end; function IsNear(const A, B, Distance: extended): Boolean; overload; begin Result := Abs(A-B) <= Abs(Distance); end;