diff --git a/lcl/interfaces/win32/win32wsforms.pp b/lcl/interfaces/win32/win32wsforms.pp
index 9f8e879ec7..0205c4704c 100644
--- a/lcl/interfaces/win32/win32wsforms.pp
+++ b/lcl/interfaces/win32/win32wsforms.pp
@@ -727,7 +727,6 @@ var
   Info: PWin32WindowInfo;
 begin
   Info := GetWin32WindowInfo(Window);
-  WinControl := Info^.WinControl;
   case Msg of
     WM_NCHITTEST:
       Result := HTTRANSPARENT;