* Enumerator must list all elements. Fix issue #40379

packages/fcl-stl/src/ghashmap.pp

@@ -363,6 +363,9 @@ end;
 function THashmap.getenumerator: TIterator;
 begin
   result:=iterator;
+  result.Fh := 0;
+  // Dirty trick. Seems to work with range and overflow checks
+  result.Fp := High(SizeUInt); 
 end;
 
 function THashmapIterator.GetKey: TKey;