diff --git a/Units/MMLCore/finder.pas b/Units/MMLCore/finder.pas
index c28eb99..6e78916 100644
--- a/Units/MMLCore/finder.pas
+++ b/Units/MMLCore/finder.pas
@@ -263,6 +263,10 @@ end;
 
 destructor TMFinder.Destroy;
 begin
+    {   We don't really have to free stuff here.
+        The array is managed, so that is automatically freed.
+        The rest is either references to objects we may not destroy
+    }
 
   inherited;
 end;