关于ListView的使用问题！(50分)

我在ListView中3个Columns,请问我用程序添加Item时怎样分别设置3个Columns的Caption

var
listitem:Tlistitem;
begin
listitem:=ListView1.Items.Add;
ListItem.Caption:='XXX';
listitem.SubItems.Add('XXX1');
listitem.SubItems.Add('XXX2');
listview1.Columns[0].Caption:='xxx';
listview1.Columns[1].Caption:='xxx1';
listview1.Columns[2].Caption:='xxx2';
end;

拷贝于我的一段程序:
procedure TResBroker.ResDrawListViewColumns(Node: TTreeNode; ListView: TListView);
var
NewColumn: TListColumn;
begin
with ListView do
begin
Columns.BeginUpdate;
Columns.Clear;
if TResCls(Node.Data).ResVRFlag = 'F' then
begin
NewColumn := Columns.Add;
NewColumn.Width := 180;
NewColumn.Caption := '名称';
NewColumn := Columns.Add;
NewColumn.Width := 110;
NewColumn.Caption := '代码';
NewColumn := Columns.Add;
NewColumn.Width := 70;
NewColumn.Caption := '分组/实类';
NewColumn := Columns.Add;
NewColumn.Width := 70;
NewColumn.Caption := '模式';
NewColumn := Columns.Add;
NewColumn.Width := 160;
NewColumn.Caption := '视图';
NewColumn := Columns.Add;
NewColumn.Width := 160;
NewColumn.Caption := '备注';
end
else if TResCls(Node.Data).ResVRFlag = 'T' then
begin
NewColumn := Columns.Add;
NewColumn.Width := 180;
NewColumn.Caption := '名称';
NewColumn := Columns.Add;
NewColumn.Width := 110;
NewColumn.Caption := '代码';
NewColumn := Columns.Add;
NewColumn.Width := 80;
NewColumn.Caption := '是否有效';
NewColumn := Columns.Add;
NewColumn.Width := 60;
NewColumn.Caption := '扩展标志';
NewColumn := Columns.Add;
NewColumn.Width := 140;
NewColumn.Caption := '备注';
end;
Columns.EndUpdate;
end;
end;

多人接受答案了。