diff --git a/lcl/interfaces/win32/win32int.pp b/lcl/interfaces/win32/win32int.pp
index 8a11d7c423..8a8f5398b7 100644
--- a/lcl/interfaces/win32/win32int.pp
+++ b/lcl/interfaces/win32/win32int.pp
@@ -33,7 +33,7 @@ uses
   Translations, Controls, Buttons,
   LCLIntf, LclProc, LazUTF8, LCLType, LMessages,
   Forms, Dialogs, GraphMath, GraphType, InterfaceBase,
-  StdCtrls, SysUtils, Win32Def, Graphics, Menus, CommCtrl, ComCtrls,
+  StdCtrls, SysUtils, RtlConsts, Win32Def, Graphics, Menus, CommCtrl, ComCtrls,
   MultiMon, Themes{, Win32Debug};
 
 const
diff --git a/lcl/interfaces/win32/win32listsl.inc b/lcl/interfaces/win32/win32listsl.inc
index 6a6bc0320a..718ed569d9 100644
--- a/lcl/interfaces/win32/win32listsl.inc
+++ b/lcl/interfaces/win32/win32listsl.inc
@@ -238,6 +238,8 @@ var
   lSelected: Boolean;
   AData: Pointer;
 begin
+  if Sorted then
+    Error(SSortedListError,0);
   // remember selection
   lSelected := False;
   lItemIndex := -1;