一个嵌套循环的问题

[wsxcy66668888]

我用如下方式读出一个RichEdit1控件中的行到一个Listview控件中

listview1.Items.Clear;
For i:=0 to List.Count-1 do
Begin
　lt := listview1.Items.Add;
　 lt.Caption :=List[i];
　lt.SubItems.Add(inttostr(i+1));　
　end;

问题：现在红字部分是向子列表添加一列数字顺号，想将这个顺号每从1到10时重新开始计数，即再从1开始到10，要怎么写呢？

[勿为]

listview1.Items.Clear;
For i:=0 to List.Count-1 do
Begin
　lt := listview1.Items.Add;
　 lt.Caption :=List[i];
　lt.SubItems.Add(IntToStr((i mod 10)+1));　
　end;

[bdmh]

listview1.Items.Clear; 
For i:=0 to List.Count-1 do
Begin
　lt := listview1.Items.Add;
　lt.Caption :=List[i];
  if i > 9 then
  　lt.SubItems.Add(IntToStr((i mod 10)+1))
  else
    lt.SubItems.Add(IntToStr(i+1))
　end; 

[wsxcy66668888]

谢谢