>324
確か、こんな感じ。
procedure TForm1.Buttn1Click(Sender: TObject);
var
　Node: TTreeNode;
begin
　Node := TreeView1.Items.GetFirstNode;
　if Node <> Nil then
　repeat
　　if Node.StateIndex = n then
　　begin
　　　ListView1.Items.Add;
　　　NodeList.Add(Node); // NodeList: TList;
　　end;
　　Node := Node.GetNext;
　until Node = nil;
end;

procedure TListSheet.ListViewData(Sender: TObject; Item: TListItem);
var
　N: TTreeNode;
　S: string;
begin
　N := TTreeNode(NodeList.Items[Item.Index]);
　Item.Caption := N.Text;
　Item.ImageIndex := N.StateIndex;
　S := Format('%5d',[Node.AbsoluteIndex+1]);
　Item.SubItems.Add(S);
end;