problemas con consulta dinamica

[[maeyanes]]

Hola...

Bienvenido a los foros de Club Delphi. Primero que nada, te recomiendo que leas la Guía de Estilo de los foros (enlace en mi firma).

Creo que tu problema se encuentra en que este código lo ejecutas en el evento OnKeyDown del TEdit.

Prueba usando el evento OnChange:

Código Delphi [-]
procedure TForm3.EditCodigoChange(Sender: TObject);
var
  QIntro: string;

begin
  if EditCodigo.Text <> '' then
  begin
    QIntro := Format('select * from ARTICULOS where CODIGO like ''%s%%''', [EditCodigo.Text]);
    QProducto.SQL.Text := QIntro;
    QProducto.Open
  end
end;

Saludos...