From 9277fa9e42afa07da3f80ff7579afa7a80502213 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 25 Nov 2009 21:48:59 +0000
Subject: [PATCH] lcl: clean up

git-svn-id: trunk@22776 -
---
 lcl/forms.pp | 2 --
 1 file changed, 2 deletions(-)

diff --git a/lcl/forms.pp b/lcl/forms.pp
index 2cf6743bad..cb3e3e25db 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -1578,8 +1578,6 @@ end;
 //------------------------------------------------------------------------------
 procedure ExceptionOccurred(Sender: TObject; Addr:Pointer; FrameCount: Longint;
   Frames: PPointer);
-var
-  FrameNumber: integer;
 Begin
   DebugLn('[FORMS.PP] ExceptionOccurred ');
   if HaltingProgram or HandlingException then Halt;