diff --git a/packages/rtl-generics/examples/thashmapextendedequalitycomparer/thashmapextendedequalitycomparer.lpr b/packages/rtl-generics/examples/thashmapextendedequalitycomparer/thashmapextendedequalitycomparer.lpr
index 8ebddb5d52..06dca1fa9b 100644
--- a/packages/rtl-generics/examples/thashmapextendedequalitycomparer/thashmapextendedequalitycomparer.lpr
+++ b/packages/rtl-generics/examples/thashmapextendedequalitycomparer/thashmapextendedequalitycomparer.lpr
@@ -42,7 +42,7 @@ begin
   // don't work with TCuckooD6 map because default TCuckooD6 needs TDelphiSixfoldHashFactory
   // and TDefaultHashFactory = TDelphiQuadrupleHashFactory
   // (TDelphiQuadrupleHashFactory is compatible with TDelphiDoubleHashFactory and TDelphiHashFactory)
-  TDefaultHashFactory.GetHashList(@AValue.TaxID, SizeOf(Integer), AHashList);
+  TDelphiQuadrupleHashFactory.GetHashList(@AValue.TaxID, SizeOf(Integer), AHashList);
 end;
 
 var