diff --git a/source/main.pas b/source/main.pas
index 32cc1534..384a46e7 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -6753,7 +6753,7 @@ end;
 
 procedure TMainForm.editFilterSearchChange(Sender: TObject);
 var
-  Add, Clause: String;
+  Clause: String;
   i: Integer;
   ed: TEdit;
 begin