diff --git a/lcl/include/customedit.inc b/lcl/include/customedit.inc
index 2c961a3f9a..adb4e2359d 100644
--- a/lcl/include/customedit.inc
+++ b/lcl/include/customedit.inc
@@ -441,17 +441,5 @@ begin
  inherited DoExit;
 end;
 
-procedure TCustomEdit.InitializeWnd;
-var
-  ASelStart, ASelLength : integer;
-begin
-  inherited InitializeWnd;
-  if FSelStart <> FSelLength then begin
-    ASelStart:= FSelStart;
-    ASelLength:= FSelLength;
-    SelStart:= ASelStart;
-    SelLength:= ASelLength;
-  end;
-end;
 
 // included by stdctrls.pp
diff --git a/lcl/stdctrls.pp b/lcl/stdctrls.pp
index f96053ec91..3a7bd16de4 100644
--- a/lcl/stdctrls.pp
+++ b/lcl/stdctrls.pp
@@ -665,7 +665,6 @@ type
     function GetSelLength: integer; virtual;
     function GetSelStart: integer; virtual;
     function GetSelText: string; virtual;
-    procedure InitializeWnd; override;
     procedure SetEchoMode(Val: TEchoMode); virtual;
     procedure SetSelLength(Val: integer); virtual;
     procedure SetSelStart(Val: integer); virtual;