문자열에서 특정 문자 갯수 알아오기

uses strutils;

function countword(const source, wordstr : string; index : integer = 1):integer;
var
 i, lensource : integer;
begin
 result := 0;
 lensource := length(source);
 i := index;                     // 일정 인덱스 이후의 문자를 검색.
 while i<=lensource do begin
   i := posex(wordstr,source,i);
   if i>0 then inc(result) else break;
   inc(i);
 end;
end;