diff --git a/source/options.pas b/source/options.pas
index 9f479968..a6094e08 100644
--- a/source/options.pas
+++ b/source/options.pas
@@ -222,12 +222,10 @@ end;
 }
 procedure Toptionsform.Apply(Sender: TObject);
 var
-  i, j: Integer;
+  i: Integer;
   Attri: TSynHighlighterAttributes;
-  Grid: TVirtualStringTree;
   CatNode, ItemNode: PVirtualNode;
   Data: PShortcutItemData;
-  QueryTab: TQueryTab;
   LangCode: String;
 begin
   Screen.Cursor := crHourGlass;