FindDoalog

[MAKEDON]

Я пишу текстовый редактор и вот проблема...как сделать чтобы искал текст..всмысле..при нажатии клавиши найти далее ищет слово...при повторном ищет токае же слово дальше по тексту если оно имеетеся... Пока получилось лишь чтобы искал первое слово...а последующие такие слова не ищет... как изменить код чтобы нужный результат был?

procedure TForm1.FindDialog1Find(Sender: TObject);
begin
If pos(FindDialog1.FindText,smemo1.Text) <> 0 then
Begin
sMemo1.HideSelection:= false;
sMemo1.SelStart:=  pos(FindDialog1.FindText,smemo1.Text) - 1;
smemo1.SelLength:= Length(FindDialog1.FindText);
end
else Messagedlg('Строка ' + FindDialog1.FindText + ' не найдена!', mtConfirmation, [mbYes], 0)

end;

[Alter]

Вот сюда заглядывали, через поиск по форуму? http://www.programmersforum.ru/showp...54&postcount=2