diff --git a/lcl/include/customcombobox.inc b/lcl/include/customcombobox.inc
index 2e1a7be821..683c01695f 100644
--- a/lcl/include/customcombobox.inc
+++ b/lcl/include/customcombobox.inc
@@ -181,7 +181,7 @@ begin
 end;
 
 {------------------------------------------------------------------------------
-  Method: TCustomComboBox.DoChange
+  Method: TCustomComboBox.LMChanged
   Params: msg -
   Returns: Nothing
 
@@ -672,8 +672,7 @@ end;
 procedure TCustomComboBox.SetDropDownCount(const AValue: Integer);
 begin
   FDropDownCount := AValue;
-  // ToDo
-  if (HandleAllocated) then
+  if HandleAllocated then
     TWSCustomComboBoxClass(WidgetSetClass).SetDropDownCount(Self, AValue);
 end;
 
@@ -734,11 +733,6 @@ begin
     AutoCompleteText := AutoCompleteText - [cbactEnabled]
 end;
 
-{------------------------------------------------------------------------------
-  function TCustomComboBox.GetDroppedDown: Boolean;
-
-
- ------------------------------------------------------------------------------}
 procedure TCustomComboBox.SetDroppedDown(const AValue: Boolean);
 begin
   if GetDroppedDown = AValue then