Hola
Yo lo hago por filtro asi:
Código Delphi
[-]
procedure TFBuscaArticulo.Edit1Change(Sender: TObject);
var Filtro : String;
begin
If (Edit1.Text <> '') then
begin
Adotable1.Filtered := False;
Filtro := 'cvemateria Like '''+Edit1.Text + '*'''
Adotable1.Filter := Filtro;
Adotable1.Filtered := True
end
else
ShowMessage('La clave de la materia no existe')
Adotable1.Filtered := False;
end;
O tambien por sql, hay muchas formas de hacerlo.
Saludos