--- oup/current/FileClasses/_Extensions.pas	2007/06/29 12:38:24	233
+++ oup/current/FileClasses/_Extensions.pas	2007/07/14 14:18:23	237
@@ -16,6 +16,7 @@ type
     public
       constructor Create(ConnectionID: Integer; Ext: String); virtual;
       procedure InitList;
+      property Ext: String read FExt;
   end;
 
   TExtensions = class(TTreeElement)
@@ -47,7 +48,7 @@ end;
 
 function TExtension.GetCaption: String;
 begin
-  Result := FExt;
+  Result := FExt + '[' + IntToStr(GetChildCount) + ']';
 end;
 
 function TExtension.GetChild(ID: Integer): TTreeElement;
@@ -99,6 +100,7 @@ end;
 
 function TExtensions.GetChild(ID: Integer): TTreeElement;
 begin
+  FExtensions[ID].InitList;
   Result := FExtensions[ID];
 end;
 
@@ -140,7 +142,7 @@ begin
   Result := nil;
   if Length(FExtensions) > 0 then
     for i := 0 to High(FExtensions) do
-      if FExtensions[i].GetCaption = Ext then
+      if FExtensions[i].Ext = Ext then
       begin
         Result := FExtensions[i];
         Break;