Index: /oup/current/Tools/_TemplateFileList.pas
===================================================================
--- /oup/current/Tools/_TemplateFileList.pas	(revision 229)
+++ /oup/current/Tools/_TemplateFileList.pas	(revision 230)
@@ -437,4 +437,6 @@
   inherited;
   data := Sender.GetNodeData(Node);
+  Self.Cursor := crHourGlass;
+  Application.ProcessMessages;
   if data.Field is TExtension then
   begin
@@ -465,4 +467,5 @@
     ChildCount := filelist_meta.ChildCount[node];
   end;
+  Self.Cursor := crDefault;
 end;