Имеется на форме грид, к нему подсоеденина таблица, есть текст бокс и кнопка найти по слову введённомк в текст бокс

код кнопки:
SELECT vodom
GO TOP IN vodom
LOCATE FOR vodom.fio=ALLTRIM(thisform.text1.value)
thisform.Grid1.Refresh()
thisform.Grid1.setfocus()
IF NOT FOUND() then
=MESSAGEBOX("Такого плательщика нету!")
endif

Вопрос: как сделать поиск, чтобы он находил не только первую запись, а переходил по повторному нажатию на следующую удовлетворяющую условию, помогите пожалуйсто