From c0ca12b0b34ebaf4d3f601a7b89c8c45018c4d6b Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sat, 2 Apr 2011 16:14:06 +0000
Subject: [PATCH] win32: fix compilation

git-svn-id: trunk@30133 -
---
 lcl/interfaces/win32/win32wsforms.pp | 1 -
 1 file changed, 1 deletion(-)

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;