Browse Source

* Fix freeing wrong list. Fixes issue #41530

Michaël Van Canneyt 1 week ago
parent
commit
4284e61fcc
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/objpas/classes/compon.inc

+ 1 - 1
rtl/objpas/classes/compon.inc

@@ -512,7 +512,7 @@ end;
 Destructor TComponent.Destroy;
 begin
   Destroying;
-  FreeAndNil(FObservers);
+  FreeAndNil(FDObservers);
   RemoveFreeNotifications;
   DestroyComponents;
   If FOwner<>Nil Then FOwner.RemoveComponent(Self);