diff --git a/ide/frames/editor_mouseaction_options.pas b/ide/frames/editor_mouseaction_options.pas
index 9263ccbd65..93d7876415 100644
--- a/ide/frames/editor_mouseaction_options.pas
+++ b/ide/frames/editor_mouseaction_options.pas
@@ -149,7 +149,7 @@ procedure TEditorMouseOptionsFrame.ActionGridCompareCells(Sender: TObject; ACol,
   BRow: Integer; var Result: integer);
   function CompareCol(i : Integer) : Integer;
   var
-    j, a, b: Integer;
+    j: Integer;
   begin
     j := i;
     if Sender = OtherActionGrid then