Как разбить строку в delphi

Мне просто нужно разбить строку вроде: «STANS», «Payment, chk # 1»,, 1210.000 в массив на основе , . Результатом в списке строк будет

STANS  
Payment, chk#1  

1210.000