diff --git a/lcl/include/customlistbox.inc b/lcl/include/customlistbox.inc
index 8a8fdc7fbf..91c51b96b2 100644
--- a/lcl/include/customlistbox.inc
+++ b/lcl/include/customlistbox.inc
@@ -61,17 +61,6 @@ begin
   end;
 end;
 
-procedure TCustomListBox.Loaded;
-begin
-  inherited Loaded;
-  if HandleAllocated then
-  begin
-    LockSelectionChange;
-    SendItemIndex;
-    UnlockSelectionChange;
-  end;
-end;
-
 procedure TCustomListBox.CreateParams(var Params: TCreateParams);
 const
   MultiSelectStyle: array[Boolean] of DWord = (LBS_MULTIPLESEL, LBS_EXTENDEDSEL);
diff --git a/lcl/stdctrls.pp b/lcl/stdctrls.pp
index ff2cfcb10f..5dd794c361 100644
--- a/lcl/stdctrls.pp
+++ b/lcl/stdctrls.pp
@@ -522,7 +522,6 @@ type
     procedure AssignCacheToItemData(const AIndex: Integer; const AData: Pointer); virtual; // called to restore the itemdata after a handle is created
     procedure BeginAutoDrag; override;
     function CalculateStandardItemHeight: Integer;
-    procedure Loaded; override;
     procedure CreateParams(var Params: TCreateParams); override;
     procedure InitializeWnd; override;
     procedure FinalizeWnd; override;