listview collapse在XP下没效果

[otmac]

但是在win7又有效果，怎么才能在XP下实现collapse效果呢
lv1.groupview := True;
with lv1.Groups.Add do
begin
GroupID := 0;
Header := 'Group0';
end;
with lv1.Items.Add do
begin
Caption := 'a';
GroupID := 0;
end;

with lv1.Groups.Add do
begin
GroupID := 1;
Header := 'Group1';
end;

lv1.Groups.Add.GroupID := 6;
with lv1.Items.Add do
begin
Caption := 'b';
GroupID := 1;
end;

lv1.Groups[0].State := [lgsNormal , lgsCollapsible, lgsCollapsed];
lv1.Groups[1].State := [lgsNormal , lgsCollapsible, lgsCollapsed];