关于 Variant 怎么得到其值的问题？

<TABLE  width="90%" border=0>

<TR>
<TD  width="100%"><IMG src="http://www.lbschina.com.cn/forum/face/face1.gif" border=0>
问：
   i : Integer;
   fID : String;
   searchType : Integer;
   dist : OleVariant;
   pt : Variant;
   curFeatures : Variant;
   rc : Variant;
   obj : Variant;
   featureSearchLayer : Variant;


<P> curFeatures := searchLayer.SearchWithinDistance(pt, dist,miUnitMile, searchType);
             for i:=1 to curFeatures.Count do
                begin
                  obj:=curFeatures.item;
                 str(obj.FieldTypeNames    :4:0,fid);
                  find_fm.ListBox1.Items.Add(obj.name+ ' id: ' + fID);
               end;</P>
<P>在此我想要的不是obj.FieldTypeNames 默认属性的值，问怎么得到其他属性的值？
先谢谢！</P></TD></TR></TABLE>