急求解测距问题

 <B>测距(distance）</B>

<P>var</P>
<P>  dis:double</P>
<P>begin</P>
<P>map1.mapunit:=miUnitmeter;</P>
<P>dis:= map1.distance(0,0,180,0);</P>
<P>showMessage(floattostr(dis));</P>
<P>end;</P>
<P>为何求出来的值为4.96223792785E-307，几乎为零。</P>