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