поиск в Memo

[Yokka]

Мне надо сделать стандартный поиск слов в мемо, чтобы все было так как в ворде или пдф файлах. Есть код:

SelPos = Memo1->Lines->Text.Pos(FindDialog1->FindText);
if (SelPos > 0)
{
Memo1->SetFocus();
Memo1->SelStart = SelPos - 1;
Memo1->SelLength = FindDialog1->FindText.Length();
}

все работает, только находит первое слово и все. Как его зациклить чтобы находило и другие слова. Заранее благодарен.

[coNsept]

kill this msg