Hola, primero debes mostrar tu treeview ya expandido y en el evento OnCollapsing, pones lo siguiente:
Código Delphi
[-]
procedure TForm1.TreeView1Collapsing(Sender: TObject; Node: TTreeNode;
var AllowCollapse: Boolean);
begin
AllowCollapse := False;
end;
Saluditos