delphi中的listview，如何为subitems赋值？

Question

//Add user list
Ln:=lvUSERS.Items.Add;
Ln.Caption:=dm.qry.fieldbyname('Code').AsString;
Ln.SubItems[1].Text:=dm.qry.fieldbyname('Name').AsString;
Ln.SubItems[2].Text:=dm.qry.fieldbyname('Department').AsString;
dm.qry.Next;以上结果编译出错：
[Error] untUserManage.pas(108): Record, object or class type required
把代码修改为：Ln.SubItems.Text:=dm.qry.fieldbyname('Name').AsString;执行成功
但是这样只能给第一个subitems列赋值，我该怎么给其他的subitems赋值呢？

Answer 1

Ln.SubItems.Add
访问时用
Ln.SubItems[i]

Answer 2

var
  ListItem:TListItem;
begin
  //显示在数据区
    ListItem:=lvRec.Items.Add;
    ListItem.Caption:=FormatDateTime('yyyymmdd',Date());
    ListItem.SubItems.Add(TimeToStr(Now()));
    ListItem.SubItems.Add('未知');
...