超级难题，高手请进，chart中Tools工具删除的问题？

我有一个teechart的图表chart1对数据进行分析，实现了用户可以添加TAnnotationTool工具来填写备注信息，TSelectorTool工具可以移动Annotation备注信息。
我想在重新分析数据是把以前chart1中用户添加的Annotation备注信息删除掉，用的是一下语句
for t := 0 to Chart1.Tools.Count - 1 do
    begin
      if (Chart1.Tools[t] is TAnnotationTool)  then
        begin
          chart1.Tools[t].Free;
          Chart1.Tools[t].Repaint;
         end;
      end;
可是最后一个Annotation无法删除，例如我添加4个Annotation，用上面的语句只能删除三个，这是为什么？高手请指点我用单步调试看了上面的语句，发现Chart1.Tools[t]在最后一次循环时的类型是TSelectorTool，而不是TAnnotationTool，这是导致最后一个Annotation无法删除的原因，这是为什么？该怎么解决？谢谢大家了