Filtrar tabla para dbgrid

[[Caral]]

Hola este es un codigo que utilizo para filtrar de una tabla (ATArticulos) con un edit un combobox y un grid.
Mi intencion es que veas el codigo de acceso para base de datos en access y te puedas dar una idea.

procedure TFBuscaArticulo.Edit1Change(Sender: TObject);
var Filtro : String;
begin
If (Edit1.Text <> '') then
begin
ATArticulos.Filtered := False;
If CBFiltro.Text = 'Código' then Filtro := 'CodParte Like '''+Edit1.Text + '*'''
else If CBFiltro.Text = 'Descripción' then Filtro := 'Descripcion Like '''+ Edit1.Text + '*'''
else If CBFiltro.Text = 'Categoría' then Filtro := 'Categoria Like '''+ Edit1.Text + '*''';
ATArticulos.Filter := Filtro;
ATArticulos.Filtered := True
end
else ATArticulos.Filtered := False;
end;

Aqui uso tres obciones de filtro: codigo, descripcion, categoria
Con solo poner la primera letra en el EDIT este va filtrando las posibles alternativas y las presenta en un grid.
Al cambiar de letra, cambia el grid y asi sucesivamente
analizalo, tal vez te sirva.
Saludos