obj:=CreateObject('TStringList');

  obj.CommaText:='A=ABC,B=123,C=abc';

index:=obj.Add("X=DDD");

echo index;

  sN:=obj.count;

  r:=array();

  for i:=0 to SN-1 do

  begin

   r[i,'n']:=obj.Names(i);

   r[i,'v']:=obj.values(obj.Names(i));

  end

  return r;