Подсчет кол-ва слов

[Dima DDM]

Я Сделал процедуру подсчета кол-ва слов.Для того чтобы слова в тексте считались нормально я поставил ее на таймер в 100 мс ,но проблема в том что эта процедура тормозит весь текст.
Подскажите как ее оптимизировать

procedure WordCount;
const
  //Разделители слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13,
  '\','|','/'];
//   '(' ,  ')'  , '[' ,  ']' , '{',  '}'
  var
  S : String;
  i, Pos1, Len,ii : Integer;
begin
for ii:=0 to Form1.PageControl1.ActivePage.ControlCount-1 do
    if Form1.PageControl1.ActivePage.Controls[ii] is TRichEdit then begin

  FOrm1.falseEdit.Clear;
//  S := Memo1.Text;
S:=TRichEdit(Form1.PageControl1.ActivePage.Controls[ii]).Text;
  Len := Length(S);
  Pos1 := 0;
  Cnt := 0;
  for i := 1 to Len do begin
    //Пропускаем разделители.
    if S[i] in D then Continue;
    //Отслеживаем начало слова.
    if (i = 1) or (S[i - 1] in D) then Pos1 := i;
    //Отслеживаем конец слова.
    if (i = Len) or (S[i + 1] in D) then begin
      //Подсчитываем слово.
      Inc(Cnt);
      //Добавляем слово в Мемо2.
  FOrm1. FalseEdit.Lines.Add( Copy(S, Pos1, i - Pos1 + 1) );
  end;
end;
 end;

[Пепел Феникса]

я считаю что такие вещи надо ограничивать в проходе, например активной строкой.