diff --git a/rtl/objpas/classes/classes.inc b/rtl/objpas/classes/classes.inc
index c1e9a77ac9..8cf6f0fa97 100644
--- a/rtl/objpas/classes/classes.inc
+++ b/rtl/objpas/classes/classes.inc
@@ -1565,7 +1565,6 @@ function InitInheritedComponent(Instance: TComponent; RootAncestor: TClass): Boo
 Var
   I : Integer;
 begin
-  I:=0;
   if not Assigned(InitHandlerList) then begin
     Result := True;
     Exit;