Hola.
Si deseas usar el ADOTable en la búsqueda, para posicionarte en el primer registro coincidente:
Código Delphi
[-]
procedure TForm.btnBuscarClick(Sender: TObject);
begin
ADOTable.Locate('NOMBRE_DEL_CAMPO', EditBusca.Text, [loCaseInsensitive, loPartialKey]);
end;
Y para mostrar en el DBGrid sólo los registros que coincidan con la cadena especificada en la propiedad
Filter:
Código Delphi
[-]
procedure TForm.btnBuscarClick(Sender: TObject);
begin
if EditBusca.Text > '' then
begin
ADOTable.Filtered := False;
ADOTable.Filter := Format('NOMBRE_DEL_CAMPO LIKE %S', [QuotedStr(EditBusca.Text + '%')]);
ADOTable.Filtered := True;
end;
end;
Saludos