delphi+MO中InterSect函数的参数问题

两条线相交的情况，主要是Intesect方法的参数，和返回值难以设置，程序写的不是很好，
var pInterSect:variant;
………………
   pInterSect:=templine.Intersect(shape,shape.Extent);
//没有交点    
if IDispatch(pIntersect)=nil then
   begin
     exit;
   end;
//一个交点
if (pInterSect.shapetype)=moShapeTypePoint then
   begin
     Pnt:=IMOpoint(Createoleobject('Mapobjects2.Point'));
     pnt:=IMOPoint(IDispatch(pInterSect));
   end
//多个交点
   else if (pInterSect.shapetype)=moShapeTypeMultipoint  then
   begin
     Pnts:=IMOPoints(CreateOleObject('MapObjects2.Points'));
     Pnts:=IMOPoints(Idispatch(pInterSect));
   end;
//相交的结果是一条线
……