lcl: fix itemindex when combobox has duplicates. Issue #20846

git-svn-id: trunk@34053 -

lcl/interfaces/win32/win32callback.inc

@@ -578,7 +578,7 @@ var
       Index := ItemIndex;
       // Index might be -1, if current text is not in the list.
       if (Index>=0) then
-        Text := Items[Index]
+        TWin32WSCustomComboBox.SetText(ComboBox, Items[Index]);
     end;
   end;