From aec11012e81c937e0fc5ffd791e75a14dc518aa7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Fri, 13 Sep 2024 16:09:21 +0200
Subject: [PATCH] * Remove superfluous initialization of local variable. Fixes
 issue #40917

---
 rtl/objpas/classes/classes.inc | 1 -
 1 file changed, 1 deletion(-)

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;