Como fazer contagem da caracteres em um RichEdit mais rápida

Caros colegas,
Estou usando no evento OnChange de um componente RichEdit uma função que me retorna o número de caracteres de uma determinada cor. Necessito muito desta contagem para reliazação de um cálculo, porém quando o texto começa a ficar grande a contagem fica lenta devido a um loop existente na função. Desejo saber de vcs se há alguma maneira de tornar esta contagem mais rápida. Aceito qualquer dica!!!!
Desde já agradeço.