>>353
やっぱり、DelimitedTextの方がいいや。

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString text = "123,45!6,789";
TStringList* ts1 = new TStringList();
TStringList* ts2 = new TStringList();

ts1->CommaText = text;
ts2->Delimiter = '!';
ts2->DelimitedText = text;

StringGrid1->Rows[0] = ts1;
StringGrid1->Rows[1] = ts2;

delete ts1;
delete ts2;
}