diff --git a/lcl/include/customlistbox.inc b/lcl/include/customlistbox.inc
index 5ef98f4ec0..ade960d24b 100644
--- a/lcl/include/customlistbox.inc
+++ b/lcl/include/customlistbox.inc
@@ -171,4 +171,12 @@ begin
   CNSendMessage(LM_SETITEMINDEX, Self, Pointer(Val));
 end;
 
+{------------------------------------------------------------------------------}
+{  procedure TCustomListBox.Clear                                            }
+{------------------------------------------------------------------------------}
+procedure TCustomListBox.Clear;
+begin
+  FItems.Clear;
+end;
+