Поиск и замена в Memo

[vaan.sk]

Требуется организовать поиск в Memo через FindDialog, Однако получается найти и выделить только самое первое совпадение. Как перейти дальше и искать все совпадения до конца?

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

  }

[Stilet]

1) Заменить Мемо на RichEdit
2) Не использовать устаревшую Pos в пользу posEx или своего цикла перебора.