TStringList.Count

Property Count: Integer;
Example: S.CommaText := 'Acrobatics, SpellCraft, Stealth'; Writeln(S.Count); results in 3.