delphi的listview怎样加载多行文本内容? 我这算法只是加载一行 找找错误！拜谢！！

procedure TMainPlay.jzlstTimer(Sender: TObject);
var
buf: Tstringlist;
i,j: Integer;
begin
jzlst.Enabled:=false;
//---------------------------自动加载列表---created by bruce 2012.4.4
if FileExists(ExtractFilePath(ParamStr(0))+'bruce.ini') then
begin
buf := tstringlist.create;
buf.loadfromfile(ExtractFilePath(ParamStr(0))+'bruce.ini');
xlist := playlist.lv1.Items.Add;
for i := 0 to buf.count - 1 do
begin
xlist.Caption := ExtractFileName(buf.Strings[i]);
xlist.SubItems.add(ExtractFilePath(buf.Strings[i]));
end;
buf.free;
end;

xlist := playlist.lv1.Items.Add;
这个得放在xlist.Caption := ExtractFileName(buf.Strings[i]);
的上句，每使用一次增加一行

可以私聊我~