delphi - 重複した TDictionary の処理方法エラー

Question

リスト内の重複値のエラーを処理する方法。値が入力に渡され、リストに入力されます。重複がある場合は、値の名前が変更されます。例えば：

procedure TForm2.Button1Click(Sender: TObject);
var
 CollectionNameTable : TDictionary<string, Integer>;
begin
  CollectionNameTable := TDictionary<string, Integer>.Create();
   try
     CollectionNameTable.Add('One', 1);
     CollectionNameTable.Add('TWO', 2);
     CollectionNameTable.Add('TWO', 3);
     CollectionNameTable.Add('FOUR', 4);
      except on E: EStringListError do
       begin
          ShowMessage( 'Дубликат!!!');
          CollectionNameTable.Add('DOUBLE_FREE', 3);
       end;

   end;

    CollectionNameTable.Clear;
    CollectionNameTable.Free;

end;