Hola,
La classe TTreeNode tiene dos metodos que realizan lo que buscas:
Código Delphi
[-]procedure TTreeNode.Expand(Recurse: Boolean);
procedure TTreeNode.Collapse(Recurse: Boolean);
Luego, el componente TTreeView tiene otros dos metodos, que sirven para contraer y expandir todos los items:
Código Delphi
[-]procedure TCustomTreeView.FullExpand;
procedure TCustomTreeView.FullCollapse;
Saludos.