diff --git a/components/lazutils/lazclasses.pas b/components/lazutils/lazclasses.pas
index 607b12e3bc..6c83706e69 100644
--- a/components/lazutils/lazclasses.pas
+++ b/components/lazutils/lazclasses.pas
@@ -93,6 +93,7 @@ end;
 procedure TRefCountedObject.AddReference{$IFDEF WITH_REFCOUNT_DEBUG}(DebugIdAdr: Pointer = nil; DebugIdTxt: String = ''){$ENDIF};
 begin
   {$IFDEF WITH_REFCOUNT_DEBUG}
+  Assert(not FInDestroy, 'Adding reference while destroying');
   DbgAddName(DebugIdAdr, DebugIdTxt);
   {$ENDIF}
   Inc(FRefcount);