listview中增加记录，怎么总是写在第一条上？

Question

listview中增加记录，怎么总是写在第一条上？
procedure TForm.Add(a,
   b,c,d: String);
var
   li : TListItem;
begin
   li := lvFilialeComein.Items.Add;
   li.Caption := a;
   li.SubItems.Add(b);
   li.SubItems.Add(c);
   li.SubItems.Add(d);  
end;过程： 
 While i < 10 do
      begin
        a    :=  ia;
        b    :=  ib;
        c    :=  ic;
        d    :=  id;
        Add(a,b,c,d);
        //显示判断数据有效性
        Inc(i)
      end;
在循环里想增加十条数据进listview里并显示出来，为什么总是显示一条，是最后一条，好像都是覆盖的，怎么解决啊？