Я уж извиняюсь что опять такую же тему создаю поочередного поиска. Имеется код->

procedure TForm4.RzButton3Click(Sender: TObject);

  var

 rez2: TModalresult;
  i:integer;
 // NoRec:integer;
begin

  with
  Form1.ADOTable2 do
  begin
     for i:= 0 to Form1.ADOTable2.RecordCount -1 do
   begin
   form1.ADOTable2.FindNext;
      if (not Eof)and (form1.ADOTable2.Locate('fio',rzedit1.Text,[loPartialKey,loCaseinsensitive]) =true)
       then
       begin

      if Application.MessageBox(PChar('Заданное значение найдено!'),'Продолжить Поиск',MB_YESNO + MB_ICONINFORMATION + MB_DEFBUTTON1)=IDYES
        then
        begin

      //  Norec:=recNo;
        Next;

         end
                else
        break;
        end
        else
        Next;
        end;
        MoveBy(NoRec-RecordCount);
        MessageBox(HWND_DESKTOP,PChar('Поиск завершен!'),
        'Поиск',MB_OK + MB_ICONINFORMATION + MB_DEFBUTTON1);

использую Adotable база Access использую метод Locate. все то хорошо, но только он зараза 
ищет первую запись устанавливает вокус ввода на найденной записи, а затем по запросу типа "искать далее?" он опять начинает поиск с первой записи и опять же находит первую запись. Я уже и цикл организовал и сделал в цикле окно запроса что бы "искать следующую запись". блин немогу нормально сделать поиск поочерной записи. знаю что уж наверняка можно с помощью ADOtable организовать поочередный поиск, ну блин никто не может толком внятно сказать как это организовать поочередный поиск. Скажите что типа не парься и делаю на ADOQuery но с сюкелем я не работал. Вы посмотрите пож. код мож чо и найдете не то.

Отбирай найденные данные куда-нибудь, а затем выводи. Или используй запрос.