FIX: Remove symlink to directory directly when move to trash failed (fixes #686)

src/filesources/filesystem/ufilesystemdeleteoperation.pas

@@ -264,7 +264,7 @@ begin
           end;
           if RemoveDirectly = fsoogYes then
             begin
-              if aFile.IsLinkToDirectory then
+              if aFile.IsLink and aFile.IsDirectory then
                 begin
                   DeleteResult := RemoveDirectoryUAC(FileName);
                 end