obj:=CreateObject('TStringList');

  obj.Delimiter:=",";

  obj.Sorted:=1;//自动排序

  obj.Duplicates:=2; //重复串出错

  obj.DelimitedText:='A=abc,B=123,C=abc,F=996,E=abd';

  obj.Add("b=123");//插入一个重复串

  return obj.DelimitedText;