#21 Remove produces a "Range check error"

[Anonymous]

When tries to Remove items from StrHash map,
following corrected(Corresponding to bug list) code
produces Range Check Error on System.Move

function TStrHashMap.Remove(const Key: string):
TObject;
//............................
Result := Bucket.Entries[I].Value;

// !!! HERE
-> System.Move(Bucket.Entries[I + 1],
Bucket.Entries[I],(Bucket.Count - I) * SizeOf
(TStrEntry));
Dec(Bucket.Count);
if FOwnsObjects then
FreeAndNil(Result);
Exit;
//.............................