From f7e596e4fd35d2e368e35edf8923a5e789148c0a Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sat, 3 Jun 2006 23:47:52 +0000
Subject: [PATCH]   * another cleanup of unnecessary variables

git-svn-id: trunk@3781 -
---
 rtl/os2/mouse.pp | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/rtl/os2/mouse.pp b/rtl/os2/mouse.pp
index d8936a903b..4c10641f9e 100644
--- a/rtl/os2/mouse.pp
+++ b/rtl/os2/mouse.pp
@@ -97,7 +97,6 @@ end;
 function SysDetectMouse:byte;
 var
  Buttons: word;
- RC: longint;
  TempHandle: word;
 begin
  MouOpen (nil, TempHandle);
@@ -347,8 +346,6 @@ begin
 end;
 
 procedure SysGetMouseEvent (var MouseEvent: TMouseEvent);
-var
- Event: TMouEventInfo;
 begin
  if (PendingMouseEvents = 0) or
                        (PendingMouseEventOrder [MouseEventOrderHead] <> 0) then