TstringList即若指定了Delimiter，为何达不到预期的效果

TstringList即使指定了Delimiter，为何达不到预期的效果
"a":"15","b":"5"
我想以‘,’为分隔符，获取"a":"15"和"b":"5"

           TStringList *Strs = new TStringList;

           Strs->Delimiter = ',';

           Strs->DelimitedText = Edit1->Text;


           TStringList *lst = new TStringList;

           lst->Sorted = false;


           lst->Assign(Strs);




           for(int i = 0;i < lst->Count; i++)

           {

              Memo1->Lines->Add(lst->Strings[i]);

           }

           delete Strs;

           delete lst;

却产生了以下数据：
a
:"15"
b
:"5"

何解？
------解决方案--------------------
试验了下，就是可以

void __fastcall TForm2::Button2Click(TObject *Sender)

{

	TStringList *Strs = new TStringList;

	Strs->Text = Edit1->Text;

	Strs->Text = StringReplace(Edit1->Text, ",", "\r\n", TReplaceFlags() << rfReplaceAll);


	Memo1->Text = Strs->Text;


	delete Strs;

}