problemas con consulta dinamica

[oktubre]

Estimados,
estoy programando un formulario donde tengo un dbgrid de delphi 6, un edit text
en el edit le puse el codigo que copio mas abajo para que cuando el usuario va escribiendo el codigo del producto valla filtrando lo que me muestra el dbgrid

Código Delphi [-]
 
procedure TForm3.EditcodigoKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);
var
  clavecodigo : string;
  Qintro : string ;
begin
  clavecodigo := numerodfact ;        // clavecodigo es el numero de ticket
  editcodigo.SetFocus ;
  Qintro := 'SELECT * FROM ARTICULOS WHERE Codigo LIKE "' +
             editcodigo.Text  +'%"';
  if editcodigo.Text <> '' then       // edit codigo es el numero de producto
  begin 
    Qproducto.SQL.Clear;
    Qproducto.SQL.Add(Qintro)   ;
    Qproducto.Open ;
   // Qproducto.ExecSQL ;
   // Qproducto.SQL.Clear;
   // Qproducto.Close ;
  end ;
end;

y lo que sucede es que va filtrando pero si preciono la tecla "1" no filtra hasta que preciono cualquier otra.
me explico? es como que necesita de un apretar mas para realizar esto y mi idea era que lo haga con cada tecla que voy apretando.
si a alguien se le ocurre en donde estoy metiendo la pata les voy a agradecer la ayuda.
saludos,
esteban oktubre