TStringList.CommaText

Property CommaText: String
Example: S.CommaText := 'Acrobatics, SpellCraft +1, Stealth'; Writeln(S.Count); results in 4.

Note: Spaces count as a comma to a StringList, so "SpellCraft +1" counts as two items. To by-pass this, use quation marks (") or the TQexString class.