delphi 写的AO对图层查询,有个get_shape不好用