diff --git a/lcl/include/customlistbox.inc b/lcl/include/customlistbox.inc
index d01a6f2787..fab7add84d 100644
--- a/lcl/include/customlistbox.inc
+++ b/lcl/include/customlistbox.inc
@@ -217,7 +217,7 @@ procedure TCustomListBox.SendItemSelected(Index: integer; IsSelected: boolean);
 begin
   if HandleAllocated then begin
     LockSelectionChange;
-    TWSCustomListBox(WidgetSetClass).SelectItem(Self, Index, IsSelected);
+    TWSCustomListBoxClass(WidgetSetClass).SelectItem(Self, Index, IsSelected);
     UnlockSelectionChange;
   end;
 end;