delphi+mapx做地图上两点测距问题

请教各位，开发环境,windows2000+delphi6+mapx控件，实现地图上两点测距。
我的代码有问题，请高人帮忙，指点迷津，谢谢！procedure TForm1.FormCreate(Sender: TObject);
begin
//添加测距工具
self.Map1.CreateCustomTool(tooldistance,miToolTypePoly,miCrossCursor);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
//加上这句，将出现测距的虚线，工具切换到测距状态
self.Map1.CurrentTool:=tooldistance;
end;procedure TForm1.Map1PolyToolUsed(Sender: TObject; ToolNum: Smallint;
  Flags: Integer; const Points: IDispatch; bShift, bCtrl: WordBool;
  var EnableDefault: WordBool);
  var
  pts:CMapxPoints;
  i:integer;
  pt1:CMapxPoint;
  pt2:CMapxPoint;
//相临两点之间的直线距离
  distance:double;
//起点和终点的距离
  dissum:double;
  begin
 dissum:=0;if ToolNum=tooldistance then
begin
//从这里开始出现迷惑
    //for以下的语句有问题，我不清楚的是，如何得到测距一共划了多少个点？    
  for i:=1 to pts.Count-1  do
   begin
     pt1:=pts.Item(i);
     pt2:=pts.Item(i+1);
     distance:=self.Map1.Distance(pt1.X,pt1.Y,pt2.X,pt2.Y );
     dissum:=dissum+distance;   end;   end;      end;