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

У меня есть этот код, работающий для окна поиска моего приложения, к сожалению, когда он ищет или фильтрует, он проверяет каждую строку в базе данных, а затем, когда искомое слово найдено, он отображает его на tlabels,

procedure Tspcb.dccolbtnClick(Sender: TObject);
begin
  zdctable.First;
  while not zdctable.EOF do
  begin
     if (zdctable.FieldByName('Collector').AsString = dcedit.Text)
     then begin
        cn.Caption := zdctable.FieldByName('Client_Name').AsString;
        col.Caption := zdctable.FieldByName('Collector').AsString;
        pay.Caption := zdctable.FieldByName('Daily_Payment').AsString;
        date.Caption := zdctable.FieldByName('Date').AsString;
        ddate.Caption := zdctable.FieldByName('Due_Date').AsString;
        id.Caption := zdctable.FieldByName('ID').AsString;
        la.Caption := zdctable.FieldByName('Loan').AsString;
        tc.Caption := zdctable.FieldByName('Total_Collectibles').AsString;
     end;

     ShowMessage('click ok for next profile');
     zdctable.Next;
  end;
end;

что я хочу сделать, так это проверить строки, в которых есть искомое слово, а не искать каждую строку в базе данных.

Мне нужна помощь в анализе этого кода, я всего лишь новичок, который учится использовать Delphi 7 и программировать.

благодарю вас