diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index 7f33884d36..29445a0582 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -614,7 +614,7 @@ var
       Index := ItemIndex;
       // Index might be -1, if current text is not in the list.
       if (Index>=0) then
-        TWin32WSCustomComboBox.SetText(ComboBox, Items[Index]);
+        TWin32WSWinControl.SetText(ComboBox, Items[Index]);
     end;
   end;
 
diff --git a/lcl/interfaces/win32/win32int.pp b/lcl/interfaces/win32/win32int.pp
index 04189e336b..1be4828d89 100644
--- a/lcl/interfaces/win32/win32int.pp
+++ b/lcl/interfaces/win32/win32int.pp
@@ -243,6 +243,7 @@ uses
   WsControls,
   Win32Proc,
   Win32WSFactory,
+  Win32WSControls,
   Win32WSButtons,
   Win32WSMenus,
   Win32WSStdCtrls,
diff --git a/lcl/interfaces/win32/win32listsl.inc b/lcl/interfaces/win32/win32listsl.inc
index 9fccc156ee..8a6c9689ec 100644
--- a/lcl/interfaces/win32/win32listsl.inc
+++ b/lcl/interfaces/win32/win32listsl.inc
@@ -374,7 +374,7 @@ begin
     
     // restore text in edit box
     UpdateComboHeight;
-    TWin32WSCustomComboBox.SetText(FSender, EditText);
+    TWin32WSWinControl.SetText(FSender, EditText);
     if EditText = '' then
       lItemIndex := -1
     else