[ShutTap]

Есть текст в RichEdit, есть слово в Edit. Нужно посчитать, сколько раз это слово встречается в тексте.

я в программировании не бум-бум, в инете искал, сделал так:

Код:

   while RichEdit1.FindText(word, startpos, Endpos, [stMatchCase,stWholeWord])<>-1 do
    begin
    Inc(ii);   // + к числу слов
    startpos:=startpos+pos(word,RichEdit1.Text);
   end;

но че-то криво работает