Поиск нескольких строк в DBGrid

[pr1nc]

Добрый вечер. Я для поиска в DBGrid использую:

Table1.Locate('Fio klienta',Edit1.Text,[loCaseInsensitive,loPartialKey]);

Да, оно работает. Но вопрос в следующем - если у меня в базе примерно 10 человек с одинаковыми фамилиями и с разными покупками, нужно сделать кнопочку типа "Искать дальше"! Тоесть, я ввел в Edit "Петр" и оно перешло сразу на Петрова, клацнул на кнопочку и оно нашло следующего Петрова и т.д.
Как это реализовать? Заранее благодарен.

[Stilet]

Что-то типа:

b:=true;
if not bof then b:=Table1.FindNext;
if b then Table1.Locate('Fioklienta',Edit1.Text,[loCaseInsensitive,loPartialKey]);

Где b - Boolean;

[pr1nc]

а что такое if not "bof", а то ошибку выдает? я сделал if not b of, все равно ошибка:
[Error] Unit2.pas(121): 'THEN' expected but 'OF' found

[Stilet]

bof это свойство компонента Table, определяющее первую запись. Подробности читай в хелпе.

[pr1nc]

Так оно выбивает ошибку, неизвестный индетефикатор, может модуль какой-то подлючать нужно?

[Аватар]

Первый раз по LOCATE искать, а следующие поиски от текущей записи простым перебором

Table1.Next;
b:=False;
while not Table1.Eof do begin
  b:=Table1.FeldByName(('Fio klienta').AsString=Edit1.Text;
  if b then Break;
  Table1.Next;
end;

[pr1nc]

О, работает, спасибо всем огромное!