Как разбить строку на подстроки?

Есть строка:
С1,С3,С4,С9
как получить массив следующих строк:
С1
С3
С4
С9
есть ли что-то стандартное?

sl := TStringList.Create; sl.CommaText:='C1,C2,C3,C4'; // если Ci не содержат запятых // теперь sl[0]='C1'

А если содержат, то выбираем разделитель, например ':':

  sl := TStringList.Create;
  sl.Delimiter:= ':';
  sl.DelimitedText:= 'C1:C2:C3:C4';

заберите у него лопату

Блин, как просто, а я 8 лет мучался