From 989c2e0f1175250433593af52c7361f3895f9618 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sun, 27 Oct 2002 11:58:34 +0000
Subject: [PATCH] MG: fixed memleaks

git-svn-id: trunk@3571 -
---
 lcl/include/form.inc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lcl/include/form.inc b/lcl/include/form.inc
index d4058260a9..5f746fdb09 100644
--- a/lcl/include/form.inc
+++ b/lcl/include/form.inc
@@ -18,6 +18,9 @@
 {------------------------------------------------------------------------------}
 destructor TForm.Destroy;
 begin
+  {$IFDEF VER1_0}
+  BeforeDestruction;
+  {$ENDIF}
   Assert(False, 'Trace:Destroying signals for TForm');
   inherited Destroy;
 end;