TdbGrig con busqueda avanzada

[alexglez1255]

tengo el DBGbusqAlma el cual solo es un listado de la tabla de articulos de almacen con dos campos Codigo y Descripcion, y al ir insertando el dato a buscar pongo la orden para que busque lo que se esta tecleando.. en teoria deberia posicionarse en el DBGbusqAlma sin embargo no sucede, se muestra la tabla con los articulos pero no se muestra posicionado en el DBgBusqAlma.

Código Delphi [-]
procedure TAltasdealmacen.edtBusqArtChange(Sender: TObject);
var
 cadenaAbuscar: String;
begin
  cadenaAbuscar:=edtBusqArt.Text;
  if (cmbBusqArti.ItemIndex=0)and(CadenaAbuscar<>'') and (not TryStrToInt(cadenaAbuscar,codarticulo)) then
  begin
    ShowMessage('En el campo de Codigo solo puede escribir numeros, ponga cuidado por favor');
    edtBusqArt.SetFocus;
    exit;
  end;
end;

procedure TAltasdealmacen.cmbBusqArtiChange(Sender: TObject);
begin
  case cmbBusqArti.ItemIndex of
    0:begin 
         edtBusqArt.MaxLength:=0; 
       end;
   1:begin
        edtBusqArt.MaxLength:=50;
        LogicaNegocio.CDSBusqAlma.IndexFieldNames:='DESCRIPCION';
        DBBusqAlma.Visible:=true;  // Aqui muestro el DBGrid
        edtBusqArt.Text:='';
        edtBusqArt.SetFocus;
      end;
  end; //case

end;

En teoria deberia mostrar el registro al encontrarlo pero no lo hace... alguien sabe por que.. muchas gracias.. de hecho ya verifique con una variable boolean para saber el resultado del locate, y si lo halla, el problema es que no se posiciona en el DBgBusqAlma