Посчитать количество таких символов в строке

[HSR]

Всем доброго.

Как посчитать кол-во таких символов в строке?
Например, есть строка:

str:='Привет, как дела? Нормально, у тебя?';

Как посчитать кол-во запятых в str?

В гугле не нашел...

[Mad_Cat]

c:=0;
for i:=1 to length(str) do
if str[i] = ',' then inc(c);
showmessage(inttostr(c));

[HSR]

Сообщение от Mad_Cat

c:=0;
for i:=1 to length(str) do
if str[i] = ',' then inc(c);

А как вывести теперь в ShowMessage например?

[BARNEY]

ShowMessage(inttostr(c))

[HSR]

Спасибо, помогли!