diff --git a/lcl/controls.pp b/lcl/controls.pp
index f96828226b..3c6fbb0118 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -2192,7 +2192,7 @@ type
     procedure DoExit; virtual;
     function  DoKeyDownBeforeInterface(var Message: TLMKey; IsRecurseCall: Boolean): Boolean;
     function  DoRemainingKeyDown(var Message: TLMKeyDown): Boolean;
-    function  DoRemainingKeyUp(var Message: TLMKeyDown): Boolean;
+    function  DoRemainingKeyUp(var Message: TLMKeyUp): Boolean;
     function  DoKeyPress(var Message: TLMKey): Boolean;
     function  DoUTF8KeyPress(var UTF8Key: TUTF8Char): Boolean; virtual;
     function  DoKeyUpBeforeInterface(var Message: TLMKey): Boolean;
diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 3b1e90b4c3..800885dfc4 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -5956,7 +5956,7 @@ begin
   end;
 end;
 
-function TWinControl.DoRemainingKeyUp(var Message: TLMKeyDown): Boolean;
+function TWinControl.DoRemainingKeyUp(var Message: TLMKeyUp): Boolean;
 var
   ShiftState: TShiftState;
 begin