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;