Delphi6中遇见的MO问题！！！高手进啊~~急的~~

<P>在D7里运行完全没问题</P>
<P>可移植在D6里来就报错了</P>
<P>问题如下</P>
<P>else if speedbutton5.Down =true then         begin<BR>          map1.MousePointer :=2;<BR>          lyr[2]:=imomaplayer(createoleobject('mapobjects2.maplayer'));<BR>          lyr[2].GeoDataset :=dc.FindGeoDataset('SDE.HOUSE.Shape.Polygons') ;<BR>          oPoint:= IMoPoint(CreateOleObject('MapObjects2.Point'));<BR>          oPoint:=map1.ToMapPoint(x,y);</P>
<P>          oRecset:=lyr[2].SearchShape(oPoint,12, '') ;<BR>        If Not oRecset.EOF Then<BR>            begin<BR>                //listbox3.Clear;<BR>                ofld:=oRecset.Fields ;</P>
<P>做SearchShape时候oRecset是取到值的</P>
<P>可在用EOF判断的时候居然为TRUE然后直接跳出循环…………</P>
<P>我哭！！~~怎么回事啊</P>
<P>呼唤高手解决下问题</P>

<img src="images/post/smile/dvbbs/em30.gif" />