怎样才能 删除 tabset 中的后几个tabs，只保留第一个

[stevenfei]

我在用XLSReadWrite 控件 研究excel 文件操作，怎样才能删除 tabset 中的后几个tabs，只保留第一个.
tabset主要用来显示sheet标签,在打开一个有多个 sheet的excel 后，想关闭这个excel，重新建一个只有1个sheet 的DrawGrid,可怎么也删除不掉刚才打开excel文件里的后几个 tab, 如果采用 TabSet1.Tabs.Clear则会清空全部的tabs，导致程序报错。采用下面的代码又删除不掉：

//问题在于 Tab[j] 没有删除
if TabSet1.Tabs.Count>1 then
begin
for j:=(TabSet1.Tabs.Count-1) to 1 do
Form2.TabSet1.Tabs.Delete(j);
Form2.TabSet1.Refresh;
end;

哪位高手帮助解答啊，多谢啊

[haitao]

for j:=(TabSet1.Tabs.Count-1) downto 1 do

[stevenfei]

矮油，低级错误呢，呵呵，谢谢