鱼C记事本(Memo版) '查找下一个'功能如何实现

忧？悠？优？

如题，不知道如何实现  '查找下一个'，首次查找可实现，但是无法下一个，求达人指教
查找代码：
ReturnPos:=Pos(dlgFind1.FindText,mmo1.Lines.Text);
if ReturnPos <>0 then
begin
mmo1.SetFocus;
mmo1.SelStart:=ReturnPos -1;
mmo1.SelLength:=Length(dlgFind1.FindText);
end;