procedure Walk;
var
  Node: TTreeNode;
begin
  Node := ATree.Items.GetFirstNode;
  while Node <> nil do
  begin
    if ATree.Checked[Node] then
      // Node 被选中

    Node := Node.GetNext;
  end;
end;