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

为什么我这段代码得不到ShapeFieldName呢？

pGeom:IGeometry;
　pType:TOleEnum;
 mapcontrol1.Map.Get_Layers(nil,true,pLayers);
 pLayers.Reset;
 pLayers.Next(pLayer);
 pGeoLayer:=pLayer as IGeoFeatureLayer;
 pGeoLayer.Get_FeatureClass(pFeaClass);
 pFeaClass.Get_ShapeFieldName(pName);
　pGeom.Get_GeometryType(pType);

我怀疑是DELPHI对这些借口支持的不好，请delphi开发高手指点

并给出解决的办法！谢谢！