diff --git a/lcl/interfaces/win32/win32proc.pp b/lcl/interfaces/win32/win32proc.pp
index 66d091b59d..7705d41008 100644
--- a/lcl/interfaces/win32/win32proc.pp
+++ b/lcl/interfaces/win32/win32proc.pp
@@ -681,7 +681,6 @@ var
   DC: HDC;
   Handle: HWND;
   TheWinControl: TWinControl absolute Sender;
-  ARect: TRect;
   Win32Info: PWin32WindowInfo;
 begin
   Result := False;