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...