[Delphi] ProgresBar a wyszukiwanie w bazie

Czy ma ktoś pomysł jak zrobić aby postęp przeszukiwania bazy danych był pokazywany na ProgresBar'ze?

Pozdr. ;)

PS. Na forum nie znalazłem

Pokaż kod, którym wyszukujesz to coś Ci poradzimy, a nie tak w ciemno :/

No własnie kodu nie mam :[ no i w tym problem, że nie wiem jak się do tego zabrać.

Mam bazę w Paradox 7, na formie mam DataSource, Query, DBGrid i Buttona.
Szukam w ten sposób:

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Moje zapytanie');
Query1.Open;

Wynik tego co znajdzie pojawia sie w DBGrid.
No i wtym proble że nie wiem jak to połączyć z ProgresBar [sciana] .

Najpierw chyba należy sprawdzić ilość rekordów w tabeli która będzie przeszukiwana za pomocą RecCount - ale co dalej [sciana] nie ma tu przecież pętli, która pokolei przeszukiwałaby rekord po rekordzie.

Maci może jakieś pomysły, a może znacie jakiś komponent tylko darmowy.

Pozdr. ;)

Nie jestem pewien, ale w pakiecie JEDI jest chyba coś takiego jak DBProgressBar. Nie mam teraz pod ręką Delphi, dlatego trzeba poszukać.