We meanwhile have two InitializeGlobalStructures() methods, make sure to call them both. Issue #1134

Author: joachimmarder

Source/VirtualTrees.pas

@@ -649,6 +649,7 @@ procedure InitializeGlobalStructures();
 constructor TCustomVirtualStringTree.Create(AOwner: TComponent);
 
 begin
+  InitializeGlobalStructures();
   inherited;
   FPreviouslySelected := nil;
   FDefaultText := cDefaultText;