Averiguar el número de repeticiones de un caracter

[llonigualker]

Este codigo te cambia todas las ocurrencias de una subcadena dentro de una cadena. Adaptalo a tus necesidades.

procedure TForm1.Button1Click(Sender: TObject);

function CambiaEn(Cadena, Esto, Por: String): String;
var
aPos: Integer;
begin
aPos := Pos(Esto, Cadena);
Result:= '';
while (aPos <> 0) do begin
Result := Result + Copy(Cadena, 1, aPos-1) + Por;
Delete(Cadena, 1, aPos + Length(Esto)-1);
aPos := Pos(Esto, Cadena);
end;
Result := Result+Cadena;
end;

var
ParaCambiar:string;

begin
ParaCambiar:='Un ejemplo en el que cambiar "cambiar"';
Label1.Caption:=CambiaEn(ParaCambiar,'cambiar','se cambio');
end;

Saludos.