1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

uses
  StrUtils;

...

function GetOccurrenceCount(uText, uSearchText: String): Integer;
var
  CurrentPos: Integer;
begin
  Result := 0;
  CurrentPos := Pos(uSearchText, uText);
  while CurrentPos > 0 do
  begin
    Inc(Result);
    CurrentPos := PosEx(uSearchText, uText, CurrentPos + 1);
  end;
end;

// benutzen
GetOccurrenceCount('Deine,Zeile,mit,Kommata', ',')					

1:
2:
3:
4:
5:
6:
7:
8:
9:

function GetOccurrenceCount2(uText: String; uSearch: Char): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to Length(uText) do
    if uText[i] = uSearch then
      Inc(Result);
end;