[marcoszorrilla]

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.