From e952aef81fb1a29b8a5f6b678c56d1e711f1bb70 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:48:04 +0000
Subject: [PATCH] MG: fixed mem leak

git-svn-id: trunk@1193 -
---
 lcl/controls.pp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lcl/controls.pp b/lcl/controls.pp
index a1356b9f20..b61a895a0a 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -230,9 +230,8 @@ const
   crSizeAll     = TCursor(-22);
 
 
-
 type
-  TWndMethod = procedure(var Message : TLMessage) of Object;
+  TWndMethod = procedure(var TheMessage : TLMessage) of Object;
 
   TControlStyleType = (
     csAcceptsControls,
@@ -1358,6 +1357,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.75  2002/10/01 10:41:47  lazarus
+  MG: fixed mem leak
+
   Revision 1.74  2002/09/29 15:08:37  lazarus
   MWE: Applied patch from "Andrew Johnson" <aj_genius@hotmail.com>
     Patch includes: