diff --git a/lcl/interfaces/win32/win32wsstdctrls.pp b/lcl/interfaces/win32/win32wsstdctrls.pp
index 5947a5c9f0..2004638f04 100644
--- a/lcl/interfaces/win32/win32wsstdctrls.pp
+++ b/lcl/interfaces/win32/win32wsstdctrls.pp
@@ -1386,7 +1386,7 @@ begin
   with Params do
   begin
     pClassName := @EditClsName[0];
-//    SubClassWndProc := @MemoWndProc;
+    SubClassWndProc := @MemoWndProc;
     WindowTitle := StrCaption;
   end;
   // create window