Pues no me consta pero es muy sencillo:
Con este ejemplo necesitas un botón un Edit y en el escribes una palabra que contenga varias veces la letra para hacer la prueba.
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
n:Integer;
begin
n:=0;
For i:=1 to Length(Edit1.Text) do
begin
if Edit1.Text[i]= 'a' then
n:=n+1;
end;
ShowMessage('La letra a aparece '+IntToStr(n)+'Veces');
end;
A partir del ejemplo crear una función es muy fácil.
Un Saludo.