diff --git a/utils/h2pas/scan.l b/utils/h2pas/scan.l
index 77ee3dee03..021b287aaa 100644
--- a/utils/h2pas/scan.l
+++ b/utils/h2pas/scan.l
@@ -254,7 +254,6 @@ type
 
     procedure writetree(p: presobject);
     var
-     i : integer;
      localp: presobject;
      localp1: presobject;
      currentlevel : integer;
diff --git a/utils/h2pas/scan.pas b/utils/h2pas/scan.pas
index 957bf65f31..fcbc2ba6ff 100644
--- a/utils/h2pas/scan.pas
+++ b/utils/h2pas/scan.pas
@@ -257,7 +257,6 @@ type
 
     procedure writetree(p: presobject);
     var
-     i : integer;
      localp: presobject;
      localp1: presobject;
      currentlevel : integer;