Compilation fails on Delphi 13.1

[luebbe]

Compilation fails on Delphi 13.1 in line 210 of VirtualSendToMenu.pas with the error message "not enough real parameters".

procedure TVirtualSendToMenu.Populate(MenuItem: TMenuItem);
  procedure Fill(NS: TNamespace; NonFolders: Boolean);
  var
    M: TMenuItem;
    I, SendToIndex: Integer;
    L: TVirtualNameSpaceList;
  begin
    // Fill a temp Namespace List with the shell send-to items
    // and then add them to the PopupMenu and SendToItems list.
    L := TVirtualNameSpaceList.Create(False);
    try
      // No messages
      NS.EnumerateFolder(0, False, NonFolders, False, EnumSendToCallback, L);
      L.Sort(SendToMenuSort);
-----^ "E2035 Not enough Parameters"
...

    finally
      L.Free;
    end;
  end;

Compliation passes on Delphi 12.3 with the same source code.

• Under Delphi 13.1 this line gets the sort from System.Generics.Collections.TList.Sort via MPShellUtilities.TVirtualNameSpaceList
• Under Delphi 12.3 this line gets the sort directly from System.Classes.TList.Sort