关于ShellListView的问题。(0分)

ShellListView看起来和listView差不多。实际差多了。
我的代码。
procedure TFrm_Main.AddColumn;
var
NewColumn : TListColumn;
ListItem : TListItem;
i : integer;
begin
NewColumn := list.Columns.Add;
NewColumn.Caption := '状态';
NewColumn.Index := 1;
NewColumn.Width := 100;
For i:= 0 to List.Items.Count - 1 do
begin
List.Items.SubItems.Text := 'ddddddd';
end;
// ListItem := list.Items.Add;
// ListItem.SubItems.add('dddddddd');
end;
怎么弄也不成。只是想给ShellListView加一列，和listview一样。
为什么不行呢。列是加上了。但信息死活加不上去，而且所加的列默认显示文件日前属性。
有大侠们能解决吗 。