Hrm. Ich würde da auch nur eine einzelne Funktion draus machen:
Delphi-Quellcode:
function GetCharCount(source: string; token: char): integer;
var
i: integer;
begin
result := 0;
for i := 0 to length(source) - 1 do
if source[i] = token then
inc(result);
end;