[[coso]]

deberia ser algo asi

Código Delphi [-]

function Contar_caracter(c, s : string) : integer
var
      i,cnt : integer;
begin
         cnt := 0;
         for i := 0 to length(PChar(s)) - 1 do
         if Pos(c,s) <> 0 then inc(cnt);

        Contar_Caracter := cnt;
end;

mas o menos.

A ver si te sirve Saludos