! dictionary resize was called twice in a row

test case:

dic := TDictionary.Create;
try
for i := 1 to 63 do
dic.Add(IntToStr(i));
// next two calls will both trigger Resize
dic.Add('64');
dic.Add('65');
for i := 66 to 127 do
dic.Add(IntToStr(i));
// next two calls will both trigger Resize
dic.Add('128');
dic.Add('129');
finally FreeAndNil(dic); end;

OmniXML_Dictionary.pas

@@ -49,6 +49,7 @@   TDictionary = class
    {$ENDIF}
    FTextList: TStringList;
    FMaxItemsBeforeResize: Integer;
    FLastHashSize: Integer;
    procedure Resize;
  public
    constructor Create; reintroduce;
@@ -171,7 +172,8 @@ procedure TDictionary.Resize;
begin
  FHashTable.Free;

  HashSize := GetGoodHashSize(FTextList.Count);
  HashSize := GetGoodHashSize(FLastHashSize+1);
  FLastHashSize := HashSize;

  {$IFDEF FPC}
  FHashTable := TFPHashList.Create;