[[Caral]]

Hola
A ver que pasa asi:

Código Delphi [-]
procedure TForm1.BoxCodigoChange(Sender: TObject);
Var
  Articulo:String;
begin
  with ZQuery1 do
      begin
        Close;
        with SQL do
          begin
            Clear;
            Add('Select Articulo From Inventario Where Articulo Like '+QuotedStr('%'+BoxCodigo.Text+'%')+' Order by Articulo');
            Open;
            BoxCodigo.Items.Clear;
            First;//Te posicionas en el primer registro
            While Not(ZQuery1.Eof) do //Recorres mientras no termine de leer todos los registros de la consulta
              begin
                Articulo:= ZQuery1.Fields[0].AsString;
                BoxCodigo.Items.Add(Articulo);
                Next;//Pasas al siguiente registro
               BoxCodigo.SelStart := Length(BoxCodigo.Text);//Posiciona el cursor en la ultima posicion
              BoxCodigo.DroppedDown:=True;
              ShowCursor(True);
              end;
          end;
      end;
  
end;

No se.
Saludos