Revert "Improved commit for #1146: Activate toAutoSort only on assignment of first event handler"

This reverts commit e2de0be.

Author: joachimmarder

Source/VirtualTrees.BaseTree.pas

@@ -5661,9 +5661,8 @@ procedure TBaseVirtualTree.SetOffsetY(const Value: TDimension);
 
 procedure TBaseVirtualTree.SetOnCompareNodes(const Value: TVTCompareEvent);
 begin
-  if Assigned(Value) and not Assigned(FOnCompareNodes) then
-    Self.TreeOptions.AutoOptions := TreeOptions.AutoOptions + [TVTAutoOption.toAutoSort]; // Turn on toAutoSort as soon as there is a compare function. See issue #1146
   FOnCompareNodes := Value;
+  Self.TreeOptions.AutoOptions := TreeOptions.AutoOptions + [TVTAutoOption.toAutoSort]; // See issue #1146
 end;
 
 procedure TBaseVirtualTree.SetOnPrepareButtonImages(const Value: TVTPrepareButtonImagesEvent);