последовательный поиск по базе

[bosston]

а пример кода можно?

[ArtInt]

Для начала например, сделай файл с потоком File->New-Thread
Потом в нем прописываем необходимые нам функции

unit Potok;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,ComObj,Dialogs,DB,DbCtrls;

type
  Tpotok = class(TThread)
  private

    procedure ProcSynch;
    procedure Poisk;
    { Private declarations }
  protected
    procedure Execute; override;
  end;
var
implementation
uses  UinfoDobav;
{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure Tpotok.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ Tpotok }
//показываем наш промежуточный результат на модальной форме
procedure TPotok.ProcSynch;
begin
//по инфе FinfoDobav
  FInfoDobav.RxLbNameFiles.Caption:='Добавлен файл: '+Unit1.NameforInfoDobav;

end;

procedure TPotok.Poisk;
begin
// тут делаешь поиск который надо внутри каждый раз делаешь для показа //промежуточных значений 
Synchronize(ProcSynch);

end;

//что делать при запуске потока
procedure Tpotok.Execute;
begin
  Poisk;
end;

Потом при актвации формы FinfoDobav делаешь запуск потока

  public
    potokosnov: TPotok;

procedure TFInfoDobav.FormActivate(Sender: TObject);
begin
//запускаем поток
   potokosnov:=Tpotok.Create( True );
    potokosnov.FreeOnTerminate:=True;
    potokosnov.Priority:=tpNormal;
    potokosnov.Resume;
end;

Потом прописываешь модалньный вызов FInfoDobav, и закрываешь когда надо.
Вкратце где то такой шаблон для решения задачи.
Кстати для того лучше было понятно, почитайте про потоки.