Fixed THashSet::Defrag

Hy,
I fixed the THashSet::Defrag() method and tested it. It seems to be alright now.
Nice greetings from Graz/Austria