diff --git a/mystic/mis_common.pas b/mystic/mis_common.pas
index af0a8f8..abfd639 100644
--- a/mystic/mis_common.pas
+++ b/mystic/mis_common.pas
@@ -61,9 +61,7 @@ Var
 
   Procedure CheckCommand;
   Var
-    Res   : Boolean;
-    Temp1 : LongInt;
-    Temp2 : LongInt;
+    Res : Boolean;
   Begin
     Res := False;
 
@@ -124,7 +122,6 @@ Var
   Ch1    : Char;
   Ch2    : Char;
   S1     : String;
-  S2     : String;
 Begin
   Data  := '';
   Out   := '';