diff --git a/ideintf/fieldseditor.pas b/ideintf/fieldseditor.pas
index d4aa93d429..f22d360872 100644
--- a/ideintf/fieldseditor.pas
+++ b/ideintf/fieldseditor.pas
@@ -193,9 +193,8 @@ begin
 end;
 
 procedure TDSFieldsEditorFrm.DeleteFieldsActnExecute(Sender: TObject);
-var i: integer;
-    PreActive: boolean;
-    fld: TField;
+var
+  PreActive: boolean;
 begin
   PreActive := LinkDataSet.Active;
   LinkDataSet.Active := False;