关于shapetye,shapefieldname的错误,请delphi+AE高手解答！

<P> 为什么我这段代码得不到ShapeFieldName呢？</P>
<P>pGeom:IGeometry;<BR>　pType:TOleEnum;<BR>  mapcontrol1.Map.Get_Layers(nil,true,pLayers);<BR>  pLayers.Reset;<BR>  pLayers.Next(pLayer);<BR>  pGeoLayer:=pLayer as IGeoFeatureLayer;<BR>  pGeoLayer.Get_FeatureClass(pFeaClass);<BR>  pFeaClass.Get_ShapeFieldName(pName); <BR>　pGeom.Get_GeometryType(pType);</P>
<P>我怀疑是DELPHI对这些借口支持的不好，请delphi开发高手指点</P>
<P>并给出解决的办法！谢谢！</P>