diff --git a/X2UtHashes.pas b/X2UtHashes.pas
index 8a7898d..f4f1fde 100644
--- a/X2UtHashes.pas
+++ b/X2UtHashes.pas
@@ -415,8 +415,11 @@ begin
 end;
 
 function TX2CustomHash.Exists;
+var
+  pNode:        PX2BTreeNode;
+
 begin
-  Result  := inherited Exists(Hash(AKey), ASetCursor);
+  Result  := Assigned(LookupItem(AKey, pNode, False, ASetCursor));
 end;