#22 THashMap.Clear bug

[Alexei Lukin]

There is a bug in THashMap.Clear method. There is code:

FBuckets[I].Count := 0;
for J := 0 to FBuckets[I].Count-1 do
begin
FBuckets[I].Entries[J].Key := nil; // Free key ?
FreeObject(FBuckets[I].Entries[J].Value);
end;

but that FBuckets[I].Count := 0; should obviously be
AFTER the cycle.