probleminha na busca

Fiz essa procedure para fazer uma busca no meu cadastro de clientes, acontece que quando eu abro o form e procuro um cliente eu acho, mais quando eu tento procurar outro cliente eu não consigo, parece que ele só consegue efetuar a busca quando o primeiro cliente da tabela esteja selecionado.

Segue abaixo o código que estou usando.

Valeu


procedure TfrmClientes.BitBtn8Click (sender: TObject);
begin
dbEdit1.datasource.dataset.first;
while not dbedit1.datasource.dataset.eof do begin
if dbEdit1.datasource.dataset.fieldbyname(´fantasia´). asString = edit1.text then
exit;
dbEdit1.datasource.dataset.next;